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Introduzione 


Questo  volume  comprende  alcune  routine  che  con  il  passare  del 
tempo  sono  andate  raccogliendosi  nei  nostri  cassetti. 

Forse  è  improprio  definirle  routine  in  quanto  ciascuna  di  esse 
costituisce  un  vero  e  proprio  programma  completo  e  autonomo. 
Sono  estremamente  eterogenee  e,  dal  mucchio,  abbiamo  cerca¬ 
to  di  scegliere  quelle  che  probabilmente  avrebbero  interessato 
un  maggior  numero  di  lettori. 

Molte  di  esse  sono  nostre,  altre  rappresentano  una  opportuna 
elaborazione  di  programmi  in  libera  circolazione  e,  in  questi 
casi,  quando  era  possibile  individuare  il  nome  dell'autore,  lo 
abbiamo  inserito  all’inizio  dei  listati. 

I  programmi  che  presentiamo  non  sono  commentati  perché 
riteniamo  che  essi  contengano  in  sé  tutte  le  indicazioni  neces¬ 
sarie  alla  loro  comprensione  e  al  loro  funzionamento. 

I  simboli  caratteristici  dei  listati  Commodore  relativi  agli  spo¬ 
stamenti  del  cursore,  ai  cambiamenti  di  colore  ecc.  (cioè  il 
cuoricino  in  reverse,  la  lettera  Q  in  reverse,  e  così  via)  sono  stali 
sostituiti  dappertutto  con  indicazioni  più  chiare,  contenute  en¬ 
tro  parentesi  quadre  del  tipo 
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[CLEAR] 

[3  DOWN] 

[RED] 

che  significano  rispettivamente 

pulizia  dello  schermo  =  SHIFT  +  CLR 
tre  volte  il  cursore  in  basso 
colore  rosso  =  CTRL  +  3 

Tutti  i  programmi  sono  stati  scrupolosamente  provati  e  i  listati 
rappresentano  la  fedele  riproduzione  fotografica  dell’uscita  dal¬ 
la  stampante. 

Fra  i  piu  interessanti  citiamo  quello  che  permette  la  trasforma¬ 
zione  automatica  del  contenuto  della  memoria  del  calcolatore 
in  una  serie  di  DATA  che  vengono  autolistati. 

Puòessere  molto  utile  per  visualizzare  la  struttura  di  particolari 
programmi. 

Se  non  sapete  in  quale  intervallo  di  memoria  è  contenuto  il 
programma  in  linguaggio  macchina  che  avete  intenzione  di 
analizzare,  basta  ricorrere  ad  un’altra  routine:  quella  che  forni¬ 
sce  gli  indirizzi  di  inizio  e  fine  di  tutti  i  programmi  contenuti  nel 
disco  (sia  in  Basic  che  in  linguaggio  macchina). 

Se  volete  titolare  i  vostri  programmi  in  modo  professionale  con 
unoscroll  lento  verso  l’alto,  come  nei  migliori  giochi  in  circola¬ 
zione,  potrete  farlo  con  una  routine  apposita  contenuta  in  que¬ 
sto  volume. 

La  creazione  degli  sprite  sarà  resa  estremamente  facile  e  diver¬ 
tente,  con  una  routine  che  vi  stupirà  per  la  sua  brevità:  oltre  a 
fornirvi  l’elenco  dei  DATA,  vi  mostrerà  lo  sprite  come  esso  appa¬ 
rirà  realmente. 

Ampio  spazio  è  riservato  alla  trattazione  dei  file  sia  su  nastro  che 
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su  disco.  Dei  programmi  completi  vi  mostreranno  come  utiliz¬ 
zare  i  file  sequenziali  e  i  file  relativi  (questi  ultimi  solo  su  disco  in 
quanto,  come  è  noto,  essi  sono  possibili  solo  su  questo  supporto). 
Infine  molti  troveranno  utili  le  routine  per  ottenere  il  comando 
PLOT  in  alta  risoluzione,  le  routine  matematiche,  e  tante  altre 
che  vi  divertirete  voi  stessi  a  scoprire. 


Utility 


Caricamento  con  Auto  Start  attraverso  programma 


100  REM  ****«*¥*******«**»•♦♦******♦*•♦*»♦«'***•*♦ 

110  REM  ♦  CORICAMENTO  DI  UN  PR DOPAMMO  CON  IL  * 

120  REM  *  PUH  AUTOMATICO  ,  EFFETTUATO  * 

130  PEM  *  ATTRAVERSO  IL  LISTATO  * 

140  REM  «************»*♦«****♦**♦♦*♦♦**♦*#*?****♦ 

150  CLR  ; PPINT" CCLEAR] CPLEI 0“ 

160  POKE  532A1 , 3  POME  53280,10 

170  PRI NT "DAMMI  IL  NOME  DEL  PROGRAMMA  DA  CARICARE" 

180  PRI NT  INPUT  NO* 

190  PRI NT " [ CLEAP 1 " 

200  PRI NT " I  HOME  K  2  DOWN ] LORD" CHP*( 34 ) , NO* , CHP* ( 34  > ",  8" 

210  PRI NT " [ 4  DOWN IRUN"  POKE  19A,2 

220  POKE  631,13  POKE  632,13  PR I NT " [HOME 3" ,  : END 


Ridimensionamento 


100  REM  **««4*M*M*M********»***M*h 

110  REM  •  ROUTINE  CHE  PERMETTE  DI  l 

120  REM  •  RIDIMENSIONARE  UNA  l 

130  PEM  •  VARIABILE  CON  PARENTESI  l 
140  REM  •**MMM»**MM»«****W*M*i 
150  POKE  53281,3  POKE  53280,10 
160  CLR  PR I NT " [ CLEAR H  BLFU 1 " 

170  DIM  A* (2000) 

180  OOS'JB  1000 
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196  Din  6* (3060) 

260  END 

1000  PENI  ANNULLAMENTO  DIMENSIONAMENTI 
1010  POKE  49 , PEEK (47) 

1020  POKE  50, PEEK (48) 

1030  RETIJPN 


Trasformazione  video  in  stringhe 


1B0  REM  ♦ 

110  REM  *  TRASFORMAZIONE  PEL  VIDEO  IN  « 

120  REM  *  5  STRINGHE  PICHIAMABILI  A  • 

ne  rem  *  piacere  * 

140  RFM  *♦♦♦*♦«♦♦•**«•*♦*♦♦♦♦♦*♦♦♦♦♦♦♦* 

150  POKE  53231,3  POKE  53280.10 
160  CLP  PPINT-CCLEAPUBlEUr , 

170  REM  RIEMPIMENTO  SCHEPMO  CON  CARATTERI  CASUALI 
180  POR  K»1  TO  100A 
190  C* I  NT ' PNDC 1 )460 )+36 
200  PPlNTCHRfCC), 

210  NEXT  K 

220  REM  INIZIO  LAVORO  (DOPATA  »  CIPCA  90  SECONDI) 
230  TV» 1024 

240  FOR  K=TV  TO  TV+1000 
250  PK»PEEK(K) 

260  PEM  TRASF.  DA  POKF  IN  CHP* 


270 

IF 

PKC32 

THEN 

PK»PK+S4  GOTO 

330 

280 

IF 

PK>64 

AND 

PK<96 

THEN  PK-PK+128  GOTO 

330 

290 

IF 

PK>95 

AND 

PK7127 

THEN 

PK-PK+64  GOTO 

330 

300 

IF 

PK> 1 27 

AND 

PKC160 

THEN 

PK«PK-S4  ooto 

330 

310 

IF 

PK>159 

AND 

PKC192 

THEN 

PK«PK- 128  GOTO 

330 

320 

IF 

PK>223 

AND 

PK<2M6 

THFN 

PK=PK-64 

330 

CR*«CHP*(PK> 

340 

L»LEN(S*) 

350 

IF 

L«200 

THEN 

T-T+l 

360  S»<T)-S*<T)*CPf 
370  SS»S*(T) 

380  NEXT  K 

390  PRINT"[CLFAR]CBLEU)  DA  QUESTO  MOMENTO  LO  SCHERMO  E'" 

400  PRINT"MEMORIZZATO  NELLE  6  SIRINGHE  “ 

410  PRINT"C2  DOUN]  S*(0)  S*(l)  S*(2)  S*C3)  S*(4)" 
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Rinumerazione 


59990  END 
£0000  PEM 
£0010  PEM 
£0020  PEM 
£0030  PEI1 
60040  pe M 
60050  PEM 
60060  PEM 
60070  PEM 
60000  PQKE  53281.3  POKE  53280.10 
£0090  CLP  PP I  NT  "  C  CLE  AP  ]  [  BLEU 1 “ 

60100  PRINT  "DAMMI  LE  CARATTERISTICHE  DEL  VECCHIO  LISTATO 
60110  INPUT  " C DOWN  INUMERÒ  LINEA  INIZIALE". NI 
60120  INPUT  " C DOUN ] NUMERO  l  INFR  FINALE"  N2 
60130  PR I  NT  "  [  2  DOUN  IDRA  DAMMI  LE  CAPATTEPIST  ICHE  DEL  NIJOVO 
ATO  " 

60140  INPUT  “ [ DOUN INUMFRO  LINEA  INIZIALE".N 
60150  INPUT  “ C DOUN I  INCREMENTO", IN 
60160  A-2049 

60170  K-PEEK<R+2>*236*PEEK<Af3> 

60180  IF  K<N1  THEN  60230 

60190  IF  ION2  THEN  PRINT"[DOUN]HO  FINITO."  END 
60200  POKE  H+2.  N- 1 NT < N/236 >*236 
60210  POKE  R+3, I NT < N/236 > 

60220  N-N+1N 

60230  A»PEEK(A)+236*PEEK1R+1 > 

60240  IF  A-0  THEN  END 
60230  GOTO  60170 


*  RENI  IMBFP  IN  BASIC  (  SENZA  * 

*  AGGIORNAMENTO  GOTO  E  GOSUB>  * 
«  BATTERE  UN  PROGRAMMA  OUALSIAS1* 

*  CON  NUMERI  DI  LINEA  INFERIORI  • 

*  A  600  00. 

*  PER  PI NUMERARE  PUN  60000  * 


LIST 


Dump  delle  variabili 


100  REM  *•***»•«*•*•***#••*«•**•*••*•** 

110  REM  •  DUMP  • 

120  REM  «  PERMETTE  DI  AVERE  UN  ELENCO  • 

130  REM  •  DI  TUTTE  LE  VARIABILI  USATE  * 

140  REM  •«•M»*»*****»**»*********»'#*** 

130  CLP  PRINT  "  [CLEARH  BLEU1 

160  POKE  33281.3  POKE  33280,10 

170  REM  INTRODUZIONE  VARIABILI  DI  PROVA 

180  A*»"PAPERINO " 

190  AB*-“M1NNIE" 

200  AB-236.7 
210  LM»i23 

220  REM  NON  RICONOSCE  LE  VARIABILI  CON  PARENTESI 
230  FOP  T«1  TO  3  ACT)-T  NEXT 
240  OOSUI  60000 
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39000  END 

60000  REM  ROUTINE  DI  DUMP 

60010  REM  RICONOSCIMENTO  VARIABILI 

60020  K 1"PEEK ( 43) +2364PEEK (46 ) 

60030  K2»PEEK(47)«-236APEEK<48>-21 
60040  POR  K3-KI  TO  K2  STEP  7 
60050  K4-PEEKOC3)  K3-PEEKOC3+1  > 

60060  REM  STAMPA  VARIABILI  INTERE 

60070  IF  K4M27  AND  K3>127  THEN  PRINTCHR*(K4-120)CHR*(K3-12 

8)  "X"  OOTO  60120 

60080  REM  STAMPA  VARIABILI  NUMERICHE 

60090  IE  K4C127  AND  K3C127  THEN  PRINTCHP»CK4)CHR»CK3>  GOTO 

60120 

60100  REM  STAMPA  VARIABILI  STRINGA 
60110  PRINTCHRB(K4)CHRf (K3-128) 

60120  NEXT 
60130  RETURN 


Menù  automatico 


100  REM  4*444**«*»**M«»*«M*4*«**4M44 

110  REM  •  CARICAMENTO  AUTOMATICO  DEL  A 
120  PEM  •  MENU'  DA  DISCO  ALLA  FINE  DI  A 
130  REM  a  UN  PROGRAMMA  a 

140  rem  aaaaa*a*aaaa«a**a**aaaa*aa«*aaa 

130  CLR  PR I NT ” C OLEARI [ BLEUI 

160  POKE  33281.3  POKE  33280,10 

170  PRINT-O  D0UN1F  INE  DEL  PROGRAMMA." 

100  PRINTTABI 1 1  )"C2  DOWN] 'PREMERE  UN  TASTO)" 

190  PEM  ATTENDE  FINO  A  QUANDO  VIENE  PREMUTO  UN  TASTO 
200  URI T  197.84,64 

210  REM  ROUTINE  DI  CARICAMENTO  AUTOMATICO  DEL  MENU 

220  PRINT "ICLEARK3  DOWN JLQAD"CHP*<34)  "MENU"CHR*f  34)" ,  8" 

230  PRINT"[HOMEI“  POKE  19P.4 

240  FOR  K»0  TO  3  POKE  631+K.13  NEXT  K 


Merge  e  Append  su  nastro 


100  REM  aa4***«t»*«t4*t*a«a»44«+****4*! 

110  REM  *  MERDE  SU  NASTRI i 

120  RFM  »  ATTIVARE  IL  MFPOF  CON 

130  REM  *  SVS  40703 

146  rem  a444«*«444*»4*aaa#aa4aa*«a»aa« 

130  POKE  3?-28 1 , 3  POKE  332013,10 
160  CLR  PRINT " ICl  EAPIIDLEIU"  . 

170  POKE  55  0  POKE  36-139  CLP 
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1*1?  S-40705 

1**  FOP  K«S  10  S+78 

2<?P  FERI'  N 
710  POKE  K.N 
220  TP-TD+N 
230  NEXT  V. 

240  JF  TD06736  THEN  FRINT" [ POUN]ERPOPE  NEI  DATA.  *  :END 
230  DATA  169,0, 133, 10,32,2)2,223. 165,43,72, 163.44,72,56, 163.4 

260  DHTft  233,2 ■ 133.43. 163, 46, 293, 0, 133,44, 169,0,  133, 163, 166,4 

3 

270  DATA  164,44,169,0,32,213,233,176,14,134,43,132,46,32,31,1 
65 

200  DATA  104, 133, 44, 104, 133, 43. 96. 170, 201, 4, 144, 244, 240, 10, 10 
4, 133 

290  DATA  44,104,133,43,24,100,0,3,164,166,136,240,209,208,239 
380  NEU 


Controllo  di  battitura  listati 

100  REM  4444444+4444444444444*44*444444444444*4+ 

ne  per  *  controllore  per  i  listati  * 

120  REM  *  PEP  CIASCUNA  LINER  IH  PROGRAMMA  * 

130  REM  4  VIENE  CALCOLATA  AUTOMA!  I CRUENTE  4 
140  REM  4  LR  SOMMA  DEI  CODICI  ASCII  DEI  4 

150  REM  4  CARATTERI  .  PERMETTENDO  COSI'  4 

160  PEM  4  UN  CONTROLLO  SULLA  DATTI  TURA  4 
170  REM  4444444444444444444444444444444444444444 
180  CLP  : PP I NT "[CLEAR] [BLEM]" 

190  POKE  53281.3  POKE  532A0, 10 
200  PR I NT "UN  ATTIMO  DI  PAZIENTA..." 

210  POR  K«8BS  TO  101R 

220  READ  N 

230  POKE  K.N 

240  TP*TD+N 

230  NEXT  K 

260  IF  TD017539  THEN  PRI NT" [DOWN TERRORE  NEI  DATA"  END 
270  SYS  886 : PP I  NT " [ CLE AP ]  [  2  DOWN] IL  CONTROLLO  E'  ATTIVATO" 

280  NEW 

290  DATA  173. 36, 3, 201 , 138,208, 1,96,141,131,3,173 
300  DATA  37,3, 141  - 132,3, 169, 150, 141 ,36,3, 169,3 
310  DATA  141,37,3, 169,0, 133,254,96,32,87,241 , 133 
320  DATA  251, 134,252, 132, 253. 8,201 . 13,240, 17,281,32 
330  DATA  240,5,24,101, 234 ,133, 254 ,163,251,166, 252 , 1 64 
340  DATA  233,40,96, 169, 13, 32, 210. 235, 163,214, 141,231 
350  DATA  3,206,231,3,169,0,133,216.169,19,32,2)0,235 
360  DATA  169,18.32,210, 235, 169,38. 32,210,253, 166,254, 169,0,13 
3> 2?4 ;  172 

370  9*33  151'3'192'87'?08/*'32,?03'10Sl'76'233'3'3?'205'2’21'16 

380  DATA  32,210,255,32,210,235, 173,231 ,3, 133,214,76, 173,3 
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Autostampa  Data 


100  REM  *♦*♦*♦**«♦♦♦*♦***♦**♦*♦♦♦****«* 

110  REM  *  TRASFORMAZIONE  AUTOMATICA  * 

120  REM  •  DI  STRINGHE  IN  DATA  NEL  * 

130  REM  •  1  ISTATO  « 

140  REM  *M*M***«*****»*«*M*«M****** 

150  POKE  53281 ,  3  POKE  33280,10 
160  CLR  PRINT" CCIEAPJCBLE1 1 J" 

170  REM  INPUT  DATI  (BATTERE  DELLE  FRASI  E  RETURN) 
180  PR I  NT " [ CL E AR  3 1 7  P0WN3_" 

190  GET  A*  IF  A*»""  THEN  190 
200  IF  A*«CHP*C13)  THEN  230 
210  PS*R»*A* 

220  PRINT" [HOME  317  D0UN3“P*"  “  ROTO  190 
230  REE TORE  READ  N  N-N+10 
240  PRINT"tH0E3 13  D0WN3 "N"DATA  "Pt 
250  PRINT"  10000  I>ATA"N 
260  PRINT'OOTO  180CHOME3" 

270  REM  ROUTINE  DI  AUTOSTAMPA 
280  POKE  198,3 
290  FOR  K-0  TO  2 
300  POKE  631+K ,  13 
310  NEXT  K 
10000  DATA  10000 


Trasformazione  memoria  in  Data 


10  REM 


11  REM  •  TRASFORMAZIONE  IN  DATA  * 

12  REM  *  DEL  CONTENUTO  DI  UNA  « 

13  REM  •  OPPORTUNA  ZONA  DI  MEMORIA  $ 

14  REM  M«*****«t*M«t*>*««*4*****«MM 

15  POKE  33281,3  POKE  33280,10 
1«  CLR  PRINT "CCLEAR3CBLEU3” 

17  PR I NT " DAMM I  LE  LOCAZIONI  (DECIMALI)  DI  MEMORIA" 

18  PRINT "CHE  VUOI  TRASFORMARE  IN  DATA  ■ 

19  INPUT  "[DONNI  INDIRIZZO  DI  PARTENZA", A 

20  INPUT  “[DONNI  INDIRIZZO  FINALE", B 

21  PRINT" [ DOWN 30RB  DIMMI  OLIALE  DEVE  ESSERE  IL  PRIMO" 

22  INPUT  "NUMERO  DI  LINEA  PER  I  DATA"4 N 

23  K«A+16 


24  IF  K>1  THEN 
23  PRINT" [CLEAR3 “N 

25  FOR  J»A  TO  K 
27  C-PEEK(J) 


K-B 

"  DATA”; 


20  C*»MID*(STRt(C),2) 
29  CC-CC+C 
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30  PRINTC*, 

31  IF  J<K  THEN  PRINT‘,H; 

32  NEXT  J 

33  PRINT 

34  fl-K 

33  IF  H<1  THEN  PRINT"N-"N-M0"  ^  "  B-"BM  C30T023 

30  1F  K-B  THEN  PRINT“LIST" 

3?  POKE  198,3 
30  POKE  631,19 

39  POKE  632,13  POKE  633,13 

40  END 


Stampa  monitor  su  carta 


100  REM  . . M 

110  REM  *  STAMPA  DEI  MONI T9R  • 

120  REM  »  PER  DOCUMENTARE  SU  CARTA  « 

130  REM  »  IL  CONTENUTO  DELLA  MENCIA  « 

140  REM  **«**•***«**•«*•*•««•**«•«»«•*« 

130  POKE  33261,3  POKE  33280. 10 
160  CLR  PRINT  '[  CLEAR  HBLEU I  “ 

170  DRTR  0. 1 ,2, 3, 4, 5. 6, 7, 8. 9R.B.C,D,E.P 

180  PRINT”  DAMMI  le  LOCAZIONI  DECIMALI  DELLA  ZONA" 

190  PRINT” [DONNIDI  MEMORIA  CHE  VUOI  STAMPARE  " 

200  INPUT  12  D0UN1LDCAZICNE  I N I Z I ALE ” , L 1 

210  INPUT  "[DOUNILOCAZIONE  FINALE”, LP 

220  PRINT” [DONNI QUALE  TITOLO  VUOI  DAPE  ALLA  STAMPA  •>* 

230  INPUT  " [DOUN 1 T I TQLO  ■  ”  .  Tf 

240  REM  INIZIO  STAMPA 

230  OPEN  4,4 

260  PRINTM,  SPC<40-LEN<T*>/2>Tf 

270  PRINTM  PRINTR4,  "LOCAZIONE  INIZIALE  -"LI 

280  PRINTR4, "LOCAZIONE  FINALE  »"LF 

290  PRINTR4 

300  S-LI  L-0 

310  FOP  K-L I  TO  LF 

320  H-PEEKOO 

330  X-INTCH/16) 

340  V-16*fH216-X) 

330  FOR  J-0  TO  X  READ  A*  NEXT  J 
360  RESTORE 

3^0  FOR  J-0  TO  V  READ  B«  NEXT  J 
380  RESTORE 
390  L-L+l 

400  IF  L-l  THEN  PP1NTM,S; 

410  PRINTM,  SPC<3)A*Bf, 

420  IF  L-8  THEN  L-0  S-S+9  PRINTR4 
«8  NEXT  K 
<40  CLOSE  4 
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100  ROUTINI  IN  BASIC  PUR  IL  COMMODORI-:  64 


Lettura  indirizzi  inizio  e  fine  PRG 


100  PEn  »M*t*****M*****W*M«***»fi »♦*♦**** 

110  PEn  *  PROORRHMR  PER  OTTENERE  OLI  * 

120  PEn  ♦  INDIRIZZI  FSRDEC1MRI.  1  TU  * 

130  REn  *  INIZIO  F  FINE  DI  TUTTI  I  * 

140  RED  »  PROOPRnNT  CONTENUTI  IN  UN  DISCO  * 

150  REn  f***4***4M******4"»****f ♦  *♦*****♦**> 

1 60  CLP  PPINT''  I  CLERPHRDSS03  " 

170  POKE  53281,3  POKE  33290,10 
180  Din  Tf  (4  > 

190  T*<0>«"**r'  T$<1)«"SEQ"  ;  Tt'  2)C"PP0"  T*(3)  =  "USR''  T*(4)»"REL 


200  PRINTTRB< 12) "CEPCR  INDIRIZZI" 

210  POP  K-  1  TO  40  PPINT,,[POSfl].[BLEUr'.  :NEXT  K 
220  PPINT  PPINTTRBW'C?  D0UN1METT I  UN  DISCO  NEL  DRIVE" 

230  PR I NTTRBC 12 < ” [ DOWN 3 E  PREni  UN  TRSTO" 

240  GET  0*  1F  0*-"”  THEN  240 
250  GOSUB  810  HU-2  PPINT" [CLERPI " ; 

260  FOR  K-060  TO  914  PERD  X : POKE  K.XNEXT  OPEN  4,3  G*- 


270  OPEN  1 , 8,  15,  ''  I  “  : CLOSE  10PFN  1,8,3,"$" 

280  FOR  K-l  TO  142  OET  #1,R*  NFXT 

290  FOR  K-l  TO  16GET  *1»R*IF  fl*-CHP$< 160)  THEN  310 
300  N**=NS+Flt  I  D$-M1  D$  (  N$ ,  4  »  4  )  4  " .  “ 

310  NEXT  OET  «1 ,R*.R« 

320  FOP  K-l  TO  2  OFT  il , R*1F  R$-CHP*<160)  THEN  340 
330  1$«IS4R$ 

340  NEXT 

350  FOR  K-l  TO  92  GET  *1,R*  NFXT 
360  M-0 


370  Y-Y4 1  : PP-PP+ 1  : n-n+ 1  : F$- " " 

380  OET  #1 , K$, T$, S$ : IF  S$-"“  THEN  S*-CHR$f0> 

396  FOR  J-l  TO  16  OET  *l,fl$  IF  Hf-CHR$<160>  THEN  410 
400  FS-F$4fl$ 

410  NEXT 

420  FOP  K-l  TO  10  GET  *1 , Rf'NFXT 
430  L-0UF  R$0"  "  THEN  L-RSCCR*) 

440  GET  *1 , R*  L-L4flSCCRf*CHR*(0) 1*236 ; IF  M<8  THEN  OET  il, R* 
, fi*  GOTO  460 
450  M-0 

460  SW-ST  :  IF  Kt-"“  THEN  Y-V-r PP-PP-1  GOTO  600 
470  KK-RSC<K*)-120: IF  KK<1  OR  KK>4  THEN  KK-0 
480  IF  KK-0  THEN  PRINT#4,"  “,:GOTO580 

490  OPEN  2,8,4,F$4",“-fT$(KK>4“,R“ 


500  R-0 
510  R-0 
520  B-0 


I  B-0  1F  KK02  THEN  PRINT*4,“ 

UGET  *2,R$:  IF  RSO" “  THEN  R-RSC(R*> 
IGET  *2,B*  IF  B$Oh"  THEN  B-HSC(Bf) 

530  IP<1)-B*256+R  PRINTÌ4,"*"; :QOSUB  740 : PRINTP4» 
540  POKE  784»  76 :  POKE  7B5,92P0K£  786 ,  3  :  R-fHIJSP < 0 ) 
550  RX-fl/256  R-R-flX*236  B-B+RX 
560  1P<2)-B*256+R  PR1NTH4,  •'$"  ;  OOSUB  740 


:  GOTO  540 
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OOSUB  800  PPlNTi4,CHR*(.34>F*CHR*C 


370  CLOSE  2 
380  0-0+L 

390  PRINT44,"  " , Ti (KK  >  " 

34  > 

600  IF  SUOB  THEN  620 
610  GOTO  370 

620  CLOSE  1  ,  „ 

630  HÌ*R I QHTi  ' Gi+STRifO) , 3)  M»664-(HW»3 >*1388-<HW«1 )*6-Q 
640  PR1NTÌ4.HÌ"  BLOCCHI  OCCUPATI" 

630  PRINTÌ4 , W"  BLOCCHI  LIBERI" 

660  CLOSE  4 

670  PR1 NT " C DOUN  T ANCQPR  7" 

680  OET  Di  1F  Qi*"“  THEN  6P0 
690  ]F  Ci» "3“  THEN  160 
700  END 

710  PEM - - 

720  REM  SUBPQUT INES 

730  REM  - 

740  X-B/ 16  OOSUB  730  X»A/16 

730  FOR  k>l  TO  2  :  XX.-X  :  X-<X-XK>*1  6  XK»XK-7*<X?i:>?>  '  PRINTÌ4,  CH 
PÌ(XXM8>; 

760  NEXT : RETURN  „  „ 

770  DATA  169,0. 162, 4, 149. Q8. 202. 16,251 , 169. 160, 133.97. 162.2.3 
2-198-233-230 

7B0  DATA  101,208-10-230,100-208,6,230,99-208-2.230-98-32,228, 
235- 163, 144-240  ,  _ 

790  DATA  235,32-204,253,190,97-6-101-38,100-38,99-30-98,16-24 

4,96 

800  PETUPN 
810  H4-0  RETURN 


Nome  e  identificatore 

100  RFM  M***********************"***********"** 

110  REM  *  PERMETTE  DI  CARICARE  IL  NOMF.  DEL  ♦ 
120  REM  »  DISCO  E  LA  SIGLA  DI  IDENTIFICAZIONE* 

130  PEM  ************************ *4,**4*i**4**** 

140  CLP  PPlNT”[CLERPKBLEUr 
130  POPE  33281-3  POPE  33280-10 
160  DIM  Ai(253>  OPEN  1.0. 13- "I" 

170  OPEN  3,8,3.”#" 

180  PPINT*1 , ”U1 : "3,0; 18.0 
190  FOR  K-0  TO  233 

200  OET  *3, Ri  : 1F  R*-" "  THEN  fi*»CHR*(0> 

210  AiOO-A* 

220  NEXT  K 
230  Ri»"" 

240  CLOSE  3  CLOSE  1 
250  FOR  K-144  TO  159 
260  R$»R*4R*(K> 
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100  KOI  'TIME  IN  BASIC  l’KR  11.  COMMODORE  64 


270  NEXT  K 

200  PPINT  " [CLEAP] [DOWN] NOME  DEL  DISCO  -  '  ;  A» 
290  R#-“" 

300  FOR  K-l  TO  LENIR») 

310  R*< 143+K)-MID#<R»,K, 1 ) 

320  NEXT  K 

330  I*«fi*<162)+R»C163> 

340  PR I NT " [ DOWN 1 1 D .  -  "il* 


Cambio  nome  del  disco  e  ID 


100  PEn  «##»♦####*#*#*#♦•#*♦»*##♦***♦*♦#**♦##* 

110  PEM  *  PERMETTE  DI  CRMBIRRE  IL  NOME  DEL  * 

120  PEM  «  DISCO  E  Lfi  SIGLA  DI  IDENT 1F I CR7I0NE  * 

130  PEM  •**•**•»*«•*«»*»«*•»•**»*»**•#**•••«*•* 

140  CLP  : PR I  NT " [ CLERR ] [ FLEU ] " 

130  POKE  5328 1,3  POKE  53280, 10 
160  DIM  R#(253> : OPEN  1,8, 13, "1“ 

170  OPEN  3,8.3,”#" 

180  PPINT#1, “U1 ^ "3; 0; 1810 

190  FOR  1-0  TO  233: OET  #3,A*1F  fi*-""  THEN  R*-CHR*(0> 

200  R*< I >-R* : NEXT : R»-" “ : PRINT " [CLERR] [ DONNI " 

210  CLOSE  3 : CL08E  1F0P  1-144  TO  159  R*-H*+fl*< I >  NEXT 
220  PRINT" [CLERR] [DOWN! VECCHIO  NOME  -  ";fi*  fl*-"" 

230  INPUT  "[DOWN] NUOVO  NOME  -  “,fl* 

240  R*-LEFT*(fl*+"  M,16) 

230  FOR  1-1  TO  LENIR#)  A*( 143+ I )-MID*(R», I , 1 > : NEXT 
260  I*-fl*(162)+R*f 163)  R*-"" 

270  PRINT" [2  DOWNIVECCHIR  ID.  -  ”,I* 

280  INPUT  " [ DOWN ] NUO VR  IL.  -  "IR* 

290  fl*-R*+"  " : R»( 16?)-LEFT»(R», 1 ) : R»< 163)-MI D*<R», 2, 1 ) 

300  OPEN  1,0, 13, “I" 

310  OPEN  3,8,3.”*" 

320  PRINT# 1 , "B-P: ”3,0 

330  FOR  1-0  TO  235  PR1NT»3,H*(I>; : NEXT 
340  PRINTtl , "8-P: ”3;0 
330  PRINT»1,”U2:*3;0; 18J0 
360  CLOSE  3  PR I NT# 1 , ” I " : CLOSE  1 
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Orologio 


10O  rem  *♦*********♦**#**«***«*♦♦*’**'***♦'»♦**♦**♦ 

110  PEPI  *  ATTIVA  UH  OPCiLOGin  CHE  PUD'  ESSERE  * 

120  REM  *  INI  71 ALI  ZZATO  E  VI  PURI  1  ZZATO  R  » 

IREI  PETI  »  RICHIESTA  CON  FI  -  PUH'  FSSFPE  * 

140  PEPI  *  SPENTO  (PUR  P IMBUENDO  RTT 1  VO>  CON  F3  * 

110  REM  *  E  PUD'  ASSUMFPE  IL  COLOPE  VOLUTO  CON  * 

160  REM  *  IL  TRSTO  FI  » 

17P  REM  *♦*♦♦**♦*♦***♦**♦#*♦ ♦  !»**♦'»*♦**♦♦****♦**♦ 

180  CLP  : PRINT" [CLEAR] [ BLEU] " 

180  POKE  53781.3  POKE  532 Re, 10 

200  FOR  1*48152  TO  49327  READ  J  POKE  I,J  R*R4J  ND*ND+ 1  NE 

XT  I 

210  IF  A027193  OR  ND0176  THFN  FP I  NT "CDOWN] ERRORE  NEI  DA 

Tfl" : END 

220  PP INTTRPf  1 6 )  "  [  3  DOWN] OROLOGIO" 

230  SVS  49152 

240  PEPI  RGOI ORNAMENTO 

250  PRINT" [3  DOWN] AGGI ORNAMENTO  DELL'ORA"  PRINT 
280  POKE  56334. PEEK(56394>  OR  128  REM  SELEZIONA  CLOCK  A  5 
0  HERTZ 

270  POKE  56335 » PEEKf  56335 )  AND  127  PEPI  SELEZIONA  ORA 
280  INPUT  "API  0  PP1";A* 

290  A=12e  IF  ASC(B*)*65  THEN  A*0 

300  INPUT  "ORA  ";A*  IF  LEN<R*)>2  THEN  FRI  NT " [UP ] " -  GOTO 
300 

310  GOSUB  430  IF  N>18  THEN  PPINT"  [IJP]  "  ;  GOTO  300 

320  POKE  5633 l.A+N  PEPI  AGO I ORNA  OPA 

330  INPUT  “MINUTI  "iAflF  LEN(Af ]>7  THEN  PRINT"tUP3";  GOTO 
330 

340  GOSUB  430  IF  N>89  THEN  PRINT" CUP] "i  GOTO  330 

350  POKE  56330, N  REM  AGGIORNA  MINUTI 

360  INPUT  “SECONDI  ",  A*  IF  LEN<A*)>?  THEN  PRINT" IUP3" ;  GOTO 
360 

370  GOSUB  430  IF  N>89  THEN  PRINT"  [IJP]  “  i  GOTO  360 

380  POKE  56329, N : REM  AGGIORNA  I  SECONDI 

390  PRINT"CDClUN]PER  FAR  PARTIPF  L'OROLOGIO"  PRINT"PREMI  UN  TAS 
TO" 

400  GET  A*  IF  A*“““  THF.N  400 

410  POKE  56328, 0:REM  A0010RNA  DECIMI  SEC.  E  START 
428  END 

430  IF  LEN'Af)-l  THFN  T-0 :  GOTO  45P 

440  T-VAL<LEFT*'A«,1>> 

450  U-VALCRIGHTfA*,  1)) 

460  N«16*T+U  RETURN 

470  DATR  234,234,234,120,173,20,3,141,28,192,169,130,141,20,3 
,173 

480  DATA  21,3,141,29,192,169,192,141,21,3,88,96,49,234,173,24 
490  DATA  208,41,240,74,74, 133,254, 169  0, 133,253, 160,0, 173, 11, 
220,72,41 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


500  DRTR 
20 

510  DRTR 
520  DRTR 

3- 254 
530  DRTR 

4- 32 
540  DRTR 

5,253 
550  DRTR 
25-224 
560  DRTR 
174,96 
570  DRTR 
,234 


127, 162, 186,32, 105, 192, 173, 18,220,32, 105,192, 173,9,2 

162,174,32,105.192, 173,  R . 220, 32,  122,192,104,16,3,169 

144.44.169. 129.32. 126- 192,169,141,145,253,169,216,13 

169, 1 , 145,253, 136, 16,251 , 10R, 28, 192- 72, 32- 11 B, 192, 10 

122. 192. 138.32. 126-  192.96,74,74,74,74,41, 15,9, 176, 14 

200.96. 166.215.224.133.208.7. 169.30. 141.173. 192.208, 

134.208.7. 164. 102. 141 . 173. 192.208,  14.224,  135,208, 14, 
192,232, 138,41 , 15, 141,96, 192  169,0, 133.215,76,30, 192 


Uso  tasti  funzione 


100  REM  *****f*****»*t**4*******»»******»»**f***»* 

110  REM  »  PROORRMIP  IN  t.M.  CHE  PERMETTE  DI  » 

120  REM  •  UTILIZZARE  I  TASTI  EUNZIONF  ASSOCIANDO  » 

130  REM  *  R  r ] RECLINO  DI  ESSI  UNR  FUNZIONE  BRCÌC  • 

140  REM  •**••«**»****♦*»*«»****•***♦*•♦*•*•»**•*♦♦ 

150  CLR  PP1NT " C OLEARI IBLEUl" 

160  POKE  53291.3  POPE  53280,10 
170  FOR  X«4 9 1 52  TO  48415 
180  READ  R  POKE  X.R 
190  ND-ND+1  TD-TD+A 
200  NEXT 

210  1F  ND0264  OR  TD1' >38226  1HEU  PR1NT "I DQurOERROPE  NEI  D 
ATA"  END 

220  PR INT  ”  tCLERP]  I  3  DOWfUBRTT  1  IPOSSOISYS  49152C  DlE'J  1  E  SCEOLl 
OURLE  COMANDO" 

230  PR1NT''BRSIC  VUOI  ERR  CORRISPONDERE  R  CIRSCUN" 

240  PR] UT "TASTO  FUNZIONE." 

250  PRINT''[  DONNI  POI  BATTI  IL  [R0SS05P  E  T  U  P  N[Bi_EU]." 

260  PRINT"tDOWNlSE  UN  TRcTO  FUNZIONE  NON  TI  SERVE.  BATTI" 

270  PR 1  NT " IL  SOLO  IROSSOIP  E  T  U  P  NCFLEUD." 

280  PP I NT ” [ 2  DOWN]  SE  VUOI  ORME I APE  I  COMANDI  RSS0C1RT1" 

290  PRINT"CON  I  TRSTI  FUNZIONE,  PREMI  [ROSSCIPUN-STOPCBLEU]  E" 
300  PR1 NT “DAI  UN  COLPFTTO  SECCO  RL  [ROScO]P  E  S  T  0  P  EIBLEUI. 

M 

310  PR I NT " [ DOWN )P0 1  RIBATTI  [R0SS01SVS  49152IBLEUI  E  RICOMINC 
IR  DR" 

320  PR INT" CAPO. " 

330  NEW 

340  DRTR  169,0,170,157,0,194,157,0 
350  DRTR  1 95, 1 57, 0,1 96. 237, 2«B, 244  133 
360  DRTR  251,169,194,133,252,169,49,133 
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370  DRTR 

380  drth 
390  DRTR 
400  DRTR 
410  DRTR 
420  DRTR 
430  DRTR 
440  DRTR 
430  DRTR 
460  DRTR 
470  DRTR 
480  DRTR 
490  DRTR 
500  DRTR 
510  DRTR 
520  DRTR 
530  DRTR 
540  DRTR 
530  DRTR 
360  DRTR 
570  DRTR 
380  DRTR 
590  DRTR 
600  DRTR 
610  DRTR 
620  DRTR 
630  DRTR 
640  DRTR 
630  DRTR 
660  DRTR 


233,164- 133,133,234,169,13,32 
210,233, 169,70,32,210,235. 163 
253,32,210,235, 169,61,32,210 

233. 169.63.32 .210.233 . 32 . 207 
233, 72, 160, 0,1 63. 234. 143,231 
104,32,133,192,201,13.240,17 
201,93,208,2, 169,13,  143,231 
32,133,192,32, 207 , 235, 76 . 68 

192.230.233.163.733.41. 1 .208 
10,24, 163.234 ,105,4, 133,234 
76,114, 192,36. 1 63, 734. 23R.  3 
133,254,163,233,201  ,57,40,165 
120,169,144,141,20,3,169,19? 

141 .21 .3.88.96  166,231 ,224 

253 .208.2. 230 .232.230.231. 96 
165,147,197,234,240,38,201,3 
48- 34, 201 ,7, 16, 30, 133,234 

201 .3.208.3.24. 105.4.24 

103.129.174. 141.2.740.3.24 
103,4, 133. 23"»,  160.0,  169, 194 
133,232, 132,231 , 177, 2M  .  197,233 
240, 19,200,708,247,230, 732- 165 
23? . 20 1  - 1 97 , 208 , 239 . 76 , 49 , 734 

1 33 . 254 , 76 , 4« , 234 , 200 . 20R ,  8 
230.237. 163.232.20!  .  1°7,?40,24? 
177,231,201.13.208.10.230,198 
166, 198, 137. 11°, 2. 76. 213. 1^7 
201 ,0,240,22?. 20 1 ,133.48,7 
2«1, 14 1,16, 3, 76, 49, 234, 32 
210,255,76,713, 197,0,0,0 


Disassembler  in  Basic 


100  REM  ***#***♦♦♦*****»***♦**♦*'•>**♦♦**♦♦»'**** 

110  REM  *  DISRESEMDLFP  IN  DRSIC  CON  USCITA  ♦ 

120  PER  *  0P210NRI  E  SU  STAMPANTE  * 

130  PEM  **4»***4*44t*****4**»«4*****4*4**4*l»t* 

140  CIP  PP I NT "1CLERPH POSSO]" 

130  POKE  53281,1  POKE  337806 

160  PP ] NT“  r CLERP 1  "  PPINTTREK  1 3 V'Dl SRSEEMUEP" 

170  FQP  K-l  TO  40  PP1NT“[*LEU].".  NE.-'T 

180  PRINT"C3  nOUNUJN  RT TIMO  DI  PRZ1EN7H  . " 

190  D1M  M*<  255  >  H4»"01 23436769RBCDEF " 

200  FOR  y»pi  TO  25S  PERD  RI  TF  RI»"*'1  THFN  R*="0f'4" 

210  RÌ=LEFT*^R*+"  .  •'  ,6  '  Mlf  X  "RI  NF  VT/ 

220  F'PINT  PPI NT  "DAMMI  L'INDIRIZZO  PFC  1MRLE  I'J  PARTENZA" 

230  PRINT"0  QUELLO  ESRDFCINRlF  <PPErED"TO  DR  *>' 

240  PR1  UT  INPUT  RI  IF  LEFTI'RI .  1  ’>■"*"  THEN  ?70 
230  FOP  X«1  TU  LFN1 RI )  ri=MIH*(Rf ,x. 1 >  1F  Cl'"0"  OR  CI-"?"  THE 
N  220 
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100  ROUTINH  IN  BASIC  PER  IL  COMMODORE  64 


260  NEXTX-R=INT(VHL(MVR)*R  GOTO  330 
270  R«0  IF  LEN(R*><2  THEM  220 

280  FOP  X"2  Td  LEN(fl*):C*=MIIif<R*,X.n  IF  C$'"0"  THEH  220 

290  IF  C*0"9"  THEM  R=R*  1 6+ VRL 1 C*  ' : GOTO  320 

300  IF  C*<"R"  DR  C*>"F"  THEM  220 

310  R»fl*  1 F+RSCO'.'*  >-33 

320  MEXTX 

330  INPUT  "tnOWNIVIjni  L'USCITO  Sl.l  FTRHPR  rS/N>  Ht3  LEFTD",C* 
340  P«3  IE  LEFT*rr*,  I  |  =  "C;"  THFM  P=4 
350  rtPFH  4 ,  p 

360  PR I NT " [ CL  ERP I " ,  :  1 F  P»3  THEM  380 

370  PPINT"[P0WN3PPEMI  UN  TASTO  PER  FEPMRPF  LA  STAMPO"  PPIMT44 
380  PRINT44 , "LOC  DET/HFX  COD. M.  DI SSRSSFMBLRTn  "  PRINT44 
390  IF  P»3  THEM  FOP  N*1  TO  20 
400  IF  R>655?6  THEM  R«R-65S36 

410  R««STP*(R)  L«LEM(R*'  PRINT44 , SPC< 7-L > . Rf , "  ", 

420  V«R : OOSUB  700  PR1NTK4," 

430  V-PEEK(R)  OOSIJB  71 0  PRINT44 .  "  ",  A-fi-M  fi$=n$<V> 

440  IF  LEFT$fR», THEM  PR I NT#4 , SPC ^7),MID*fA»,2.3)  GOTO  6 
20 

450  V*PEEK(R)  OOSUB  710  PPINT#4, "  R*R+I 
460  IF  LEFT*(Rf , 1 )*"?"  THEM  550 

470  PRINT*4,SPC<4>;MID*'R*.2,3);"  IF  MID*<R*,5, 1>0”R"  THE 

M  500 

480  IF  V>127  THEH  V-V-2S6 
490  V-R+VI OOSUB  630  GOTO  610 

500  IF  MID*(A», 5, 1 )="*"  THEM  PPINTH4, ,  OOSUB  710  GOTO  610 
510  IF  MID*<fif,6,l )■")"  THEM  PPINT#4."<", 

520  PPINT44, OOSUB  710  IF  MID$' A$,5, 1 >«"  “  THEM  610 
530  IF  MID*(A4 , 5 • 2>“"V V  THEM  PPI MT*4 . " ) . V  DOTO  620 
540  PR 1 NT#4 , “ , " . MI Bf (fl$ , 5 , 2 1 : OOTO  620 

550  V1«V  V-PEEK(R)  OOSUB  710  R-A+l  PRINTÌ4, "  " ; MID*' A* , 2, 3) ,  " 

t 

560  V»V1+(256*V) 

570  IF  MIB#'R*,5,1)«")"  THEM  PPINT#4,  •'(  "  ;  OOSUB  6a0  FPIMI#4,"; 

"  OOTO  620 
580  OOSUB  690 

590  IF  MID«(R*.5, I )»"  “  THFM  610 
600  PPIMT44,  ",  “,MIM<A*,5,  p; 

610  PPINTÌ4 

620  IF  P»?  THEM  NEXTH  0010  640 
630  OET  C*  IF  C*«“"  THFM  400 

640  PR  I  NT  "  [  DOWN  K  OM  T I  NI  IO ,  PICOMIMCIO,  0  STOP  <L,P,3'  ''  ", 

650  OET  C*  IF  C*«'T"  THEM  360 
660  IF  C*»"R''  THEM  CLOSE  4  OOTri  220 
670  IE  C*S‘>"S"  THEM  6*Ut 
680  PPINTH4  CLOSE  4  END 
690  PPIHT44 ,  ; 

700  V«  I MT  <  V/2*S6  )  OOSUB  710  V*V-'  ','*256  '■ 

710  H=  INT r V/16 ■>  ' L  *V-f  H4 1 6> 

720  PRINT*4,niD*fHJ,H»l, 1 1 , MI Pf < Hf . L* 1 , 1 >,  RETURN 
730  DRTR  0PPL.  10PRK>, 1DPR.  IRSL,!» 

740  DATR  0PHP, IOPR#,0RSL,*,*,2OPR,2RSL  .♦ 
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730  DRTR 
7 60  DRTR 
770  URTO 
760  DRTR 
790  DRTR 
000  DRTR 
010  DRTR 
820  DRTR 
090  DRTR 
840  DRTR 
850  DRTR 
860  DRTR 
870  DRTR 
680  DRTR 
B90  DRTR 
900  DRTR 
910  DRTR 
920  DRTR 
930  DATR 
940  DRTR 
950  DRTR 
960  DRTR 
970  DRTR 
980  DRTR 
990  DRTR 
1000  DRTR 
1010  DRTR 
1020  DRTR 
1030  DRTR 
1040  DRTR 


1BPLP  .  10PRV  lflRRV,  1RSLX,* 

0CLC ,  2rjPRY  ,*,#,*,  20PRX ,  2RRI.X ,  » 

2JSP. 1RHDX),*. », 1BIT, 1 RHD ■ 1ROL 
0PL Pi 1RHDÌ.0POL,*i 7BlT,2MHD2PnL,* 
1BMIP,  1RNDV)  iHiMi  1RNDX,  1  POI  X.» 

RREC , 2RHDV ,*.*.*, 2RNDVX • 2P0LX . ♦ 

0RT I , 1EOPX) ,*,»,*, 1ERR. 1LSP,* 

0PHR ,  1 EOR# .  OLSP  .  *  i  2  JMP ,  2F.0P  •  2LSP ,  ♦ 
1BVPR,  1EOPY),  *,*.*,  1EOPX,  ILSPXit 
0CLIi2EOPV,*.*,*,2EOPX.2I.SPX,* 

0RTS,  1RDCX)  .*,*.♦•  ÌRI'C .  1  POP , * 

0PL A , 1 RDP# . RROP . * • 2JMP ) . 2RIC , 7Pnp , ♦ 
1BVRR.  IRDPX)  .*if  I  *•  1RDCX ,  lPfiPX.  t 
0SF 1 , 2RDCY ,*,*,#, 2RDCX , 2R0RX , * 

», 1STRX) i*i*i 1STY. 1STR, 1STX,* 
0DEY-*,0TXR,*,?STV,2RTR.2STX-R 
1 BCCR ,  1 STRV  > , * , * • 1 ST VX . 1 STRX • 1 STXV . * 
0TVR,  2STRV .  0TXS ,*,*■  2STRX ,  * ,  * 

1LDV», 1LDRX), ILDXi,*, 1LDY. 1LDR, ILDX,* 
0TRY, 1LDR4 . RTRX, * . 2LDY, 2LDR , 2LDX . * 
1BCRR-  1 LDRV ;  .*,*,  1LDVX.  11  DRX,  1LDXV,  * 
0CL  V,  ?l  DRY ,  0TSX  •  *  i  2LDYX ,  2LDRX ,  2LDXY ,  * 
irpv*,irMPX),*.*. 1CPY , 1CMP , IDEO.* 

0 1 NV ,  1  r:MP*  ,  0DE  X .  * ,  2CP1 Y .  2CMP ,  2DF  C  ,  * 
1BNER.  lPflPV >,*.*,#,  1CMPX,  1DECX.» 

0CLD , 2LMPY ,*,*,*, 2CMPX , 2DEPX , » 
lCPXHi 1RBCXT ,*,* . 1CPX, I5BP . 1IHC.  f 
0INX, 15BCH . 0NOP , * , ?CPX ■ 2SBC , 2 INC i * 
1BEOR. ÌRBPY1 ,*,*,*, 1SBCX, 1 IHCX,* 

0SFD ,  2SBT  Y i  * , * ,  *  i  ?SBf  X,?INrX,* 
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Grafica 


Stringhe  scorrevoli  n.  1 


100  PEM  •*t*MM***tt**M**»*»**M*M*« 

110  REM  *  ROUTINE  per  rendepe  * 

120  REM  «  SCORREVOLE  UNA  STRINGA  * 

130  PEM  •  VERSIONE  N. I  • 

140  REM  •«••*«*«*•««*«*»««*»******««*•• 

130  POKE  33281,3  POKE  33200.10 
160  CLR  PRINT  "ICLEAPI IBLEO J" 

170  INPUT  "BATTI  UNA  STRINGA" , A* 

180  L-LENCA*) 

190  IF  L>39  THEN  160 
200  PRINT" [CLE ARI" 

210  POR  K-l  TO  L 
220  C*-MIDf<A*,K, 1) 

230  GOSIJB  290 
240  NEXT  K 

230  PRINT"! 2  DOUNIANCOPA  ?“ 

260  GET  0*  IF  Qt»" "  THEN  260 
270  IF  Q*»"S*  THEN  RUN 
280  END 

290  REM  SUBROUT I NE  DI  SPOSTAMENTO  SINGOLO  CARATTERE 
300  FOR  J»39  TO  ¥  STEP  -1 
310  PRINT"! HOME 3"TAB(J)“  " 

320  PRINT” IHOMErTAB<J-l)C« 

330  FOR  T«1  TO  30  NEXT  REM  CICLO  DI  RITARDO 
340  NEXT  J 
330  RETURN 
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Stringhe  scorrevoli  n.  2 

100  PEM  **••♦**♦*****♦*♦»♦*****♦****•«* 

110  REM  *  ROUTINE  PER  RENDERE  * 

120  REM  t  SCORREVOLE  UNA  STRINGA  * 

130  REM  •  VERSIONE  N.2  « 

140  REM  *«♦*♦*♦♦♦*****♦****«*'»****♦**• 

150  POKE  53281-3  POKE  532P0-10 
160  CIR  PRINT " I OLEARI  I BLEU1 " 

170  INPUT  "BATTI  UNA  STRINGA" . AS 
180  L-LEN'R*) 

190  IF  L>33  THEN  170 
280  PRINT" CCLEAR1 " 

210  FOR  K* 1  TO  L 
220  C*«MID*<Af ,K, n 
230  GCSUB  290 
240  NEXT  K 

250  PRINT”  [2  DONNI  ANCORA  ?" 

260  GET  0*  IF  THEN  268 

270  IF  Q*»"S"  THEN  RUN 
280  END 

290  REM  SUBROUT INE  DI  SPOSTAMENTO  SINGOLO  CARATTERE 
300  FOR  >39  TC  K4(28-L/2>  STEP  -1 
310  PRINT"  [HOME  H5  DONNI"  TAB<J>"  " 

320  PRINT"[H0ME1C3  PONN]"TAB< J-1 )Cf 

330  FOR  T*I  TO  50  NEXT  REM  CICLO  DI  RITARDO 

340  NEXT  J 

350  RETURN 


Stringhe  circolari  n.  1 

100  REM  »M**4*4****M***M*«»M«****i 

110  REM  •  STP1N0HF  SCORREVOLI  < 
120  REM  «  CIRCOLARI 

130  REM  *  VERSIONE  N. 1 

148  REM  ♦  ***MMt*fMf*4M4*t«*****4M! 

150  POKE  53281,3  POKE  53280,10 
180  CLR  PRINTTCLEARK BLEU3" 

170  N$“" 

180  INPUT  "BATTI  UNA  STRINGA" , A* 

190  L«LEN'A*> 

280  IF  L>39  THEN  240 
210  PRINT " [OLEARI " 

220  A»*A$+N« 

230  Af«LEFT*<Hf,40) 

240  A*-"  "-HW 

250  PRINT"CH0MEH4  D0UN3"MID*(Af  ,2. 40> 
280  FOR  K-l  TO  300  NEXT  K 
270  R**MID*CR#<2)+LEFT*i:AS,  I  ) 

280  GOTO  250 
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100  ROl'TINK  IN  BASIC  1M-R  IL  COMMODORI:  f>4 


Stringhe  circolari  n.  2 


100  P E M  *♦♦♦♦♦♦♦♦•♦*♦<*♦*♦♦*♦**♦**♦«♦*♦* 

110  PEM  *  Stringhe  smpREvOLI  * 

120  PEM  «  C  !  P  C  0  L  H  P  1  * 

130  PEfl  *  VERSIONF  n.2  • 

140  PEn  **•*«»•#***»«*«*««**«»**»***«»* 

150  PQKE  53291.1  POPE  33230 . 1 0 
160  CLP  PRINT'TCLEAPHBlEUr 

170  C*“" C  NEP01 [  POSSO  HA2ZUPH  VIDI  A]  r  VERDE  HBL  EU  KOI  ALLO]!  ARANO 
1  [MRPR ]  [POSA HGRIOI 01  ]  [GPIGI 02 1 C VEPDF2I C CE'  ESTE K GRIGI 03]  " 

180  U*»" 

190  INPUT  "BATTI  UNA  STRINGA", A* 

200  L«LEN'Af) 

210  IF  L>39  TH€N  230 
220  PRINT" [OLEARI " 

230  A$=At*U» 

240  A*-LEFT*(A«,40) 

250  A*-"  " »A$ 

280  PR I NT " C HOME 3 C 4  DOWNrCCfMIMTA*  2,40) 

270  C"INT<RNIKT1 >*13>+I 
280  CC**MID»<C*,C,  1  ) 

290  FOP  1  TO  300  NEXT  K 
300  A*»MIDf'A*,2>+LEFT*'A*,l) 

310  GOTO  260 


Stringhe  lampeggianti 


100  PEH  **«««*****«•*«**»*«******«»«*»• 

110  REM  *  STRINGHE  lampeggianti  • 

1 20  REM  **•**♦*♦*****»*♦♦♦*♦«♦♦♦**«** 

130  POPE  53281,3  POKE  33280,10 
140  CLP  PR I NT " [ CLE AR ] [ BLEU 3 " 

130  INPUT  "BATTI  UNA  STRINGA", A» 

160  L*LEN(A*> 

170  PRINT " ICLEARH  1 9  DOWNVTAB1'  12>"(PREMI  UN  TASTO)" 
180  PRINT"  [HOME H3  DOWN) "TABf 20-L/2>A* 

190  FOR  K“1  TO  200  NEXT  K 

200  PRINT"CH0ME)C3  DOUN] [PVS]"TAB<20-L/2)A* 

210  FOR  K«1  TO  200  NEXT  K 
220  GET  0*  IF  Q*«""  THEN  180 
230  RUN 


Barre  colorate 


1 00  rem  ******************************* 

110  REM  *  * 

■  20  REM  *  BORRE  PER  TEST  COLORI  * 
i 30  RE*  •  * 

140  PEH  ******♦♦*♦*♦**«»*♦**♦******♦*»« 

150  POKE  33281.3  POKE  33280.10 
1*0  CLP  PRINT"(CLERPHFLELir  I 
170  DI*  C<  1 6) 

180  FOR  K-l  TO  16  REHD  CdO'NEXT  K 
190  DFCR  144,3,8.  139.  136,30.31 . 1*8 
200  POTA  129,149,130,131,132.153,134,133 
210  PRINT" I  RVS] " , 

220  REM  INIZIO  GENERAZIONE  BORRE 
230  X«! NT ( 204RND (TI  )) 

240  V*I  NT ( 1 24RND ( T I )) 

230  J» I NT ( 1 6*RND( T I > )♦ 1 

260  R* 1 2*V 

270  CC-20+X 

280  GOSUB  430 

290  PRINTCHRf <C<  J>  )  "  ", 

380  P»12-V 

310  CC-20+X 

320  OOSUB  430 

330  PR I NTCHR* ( C < J ) ) ”  ", 

340  R-12-V 

330  CC-20-X 

360  OOSUB  430 

370  PR I NTCHRB <  C  (  J  >  )  "  ", 

380  R-12+V 
390  CC-20-X 
400  GOSUB  430 
410  PRINTCHR*'.C(  J>  V 
420  DOTO  220 

430  REM  SUBROUTINE  POS  I Z I  GNOME  NT  0  CURSORE 
440  POKE  780,0  POKE  781, R  POKE  782, CC 
430  SVS63320 
460  RETURN 


Cerchi  colorati  in  bassa  risoluzione 


10«  REM  **m»**44*t444**'M*4*l*441>*m****94* 

110  RFI1  f  CIRC0NFEREM7E  COLORATE  IN  BOSSO 
128  REM  *  P1SC4  OZI  ONE 

190  REM  ♦♦♦♦♦♦♦♦♦*RR***«!*4*****4***i»**«R**** 

140  CLR  PR  1  NT "CCLE0R1  IBLEO]" 

130  POR. E  33281,3  PORF  33288,10 
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100  ROUTINI-;  IN  BASIC  PER  II.  COMMODORE  64 


160  FOR  K»  5  TO  I 2 

170  FOR  J-0  TO  ?**  STEP  .1 

180  X-INT'KRSIN'J)) 

190  V-INTM-.*COS<J)> 

200  POKF  1324+X«-V*4h,  160 
210  POFF  53796+X+V*40,K -4 
220  NEXT  t,K 


Istogrammi 

1B0  rem  **************m**************** 

110  REM  *191008811118  VALORI  PETTI  MANALI* 

120  REM  •  CON  POSIZIONAMENTO  DEL  * 

130  REM  *  CURSORE  CON  ROUTINE  KERNAL  • 

140  REM  . . •»**•*«••• 

130  CLR  RRINT" CCLEAR  K  BLFU1  " 

160  POKE  33281,3  POKE  33780,10 

170  REM  LETTURA  GIORNI  SETTIMANA  E  LUNGHEZZA  COLONNINE 

100  FOR  K»1  TO  7  READ  DfOO.TOO-  NEXT 

190  DATA  LU, 10. MA, 18, ME, 24, Gl 

200  DATA  20, VE, 16, SA, 24, DO, 12 

210  QOSUB  270 

220  FOR  N*1  TO  7  C«3*N-M0  OOSUB  440:  NEXT 

230  OOSUB  330 
240  OOTO  240 
230  END 

260  REM  STAMPA  ASSI 

270  R"18  C*3 :  OOSUB  410 

280  PRIWT*  0  J"i 

290  FOR  K-l  TO  3 

300  FOR  J«1  TO  4  R*R-1  OOSU1  410 

310  PRIWT"  r;  NEXT 

320  R-R-l  OOSUB  410 

330  PRINTSTR*(10*K);*  J"  ;  NEXT 

340  C»C*3  OOSUB  410 

330  R»19  C« 10  OOSUB  410 

360  PRIMT" - — " 

370  R-20  C> 12  OOSUB  410 

308  FOR  !■!  TO  7  : PRINTDRC Ili’  ’iNEXT 
390  RETURN 

400  REA  ROUTINE  KERNAL  C  R»RJOA  C-COLONNA  > 

410  POKE  788,0  POKE  781, R:  POKE  7S2,C 

420  SV8  63320  RETURN 

430  REM  STAMPA  COLONNINE 

440  R*10 :  OOSUB  410 

430  T1»INTCT(N)Z2> 

460  IF  Tl-0  THEN  300 
470  PR I WTCHRÌ (10); CHR* (136)1 

400  FOR  1*1  TO  Ti:  PRINT"  CUP KLEFTr;  NEXT 
490  PRINTCHR* <146)1 
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500  PRINTCHRK  154)  ; 

518  RETURN 

520  REM  STRMPfl  SCRITTE 
530  R-6  C*1  OOSUB  410 
540  PRINT-CBLEUITEMP. 

550  R"22  C-U  OOSUB  410 

560  PRI NT "GIORNI  DELLR  SETT IM0NR" 

570  R-l  C-16  OOSUB  410 

580  PRINT " (PREMI  UN  TRSTO)" 

590  RETURN 


Titoli  con  scroll  lento 


100  PEM  **»*••»•»*«***»»**»*»»*•*»*»»*« 

110  REM  *  TFSTO  SCORREVOLE  CON  * 

120  REM  *  SCPOLLIHr,  FINE  VFPTICPI  E  * 

130  PEM  «  PUÒ'  ESSERE  USRTQ  COME  * 

140  REO  *  TITOLATRICE  * 

150  REM  ********4*»»M»**«*»*»****»t**+ 

160  CLP  PRINT '•[CIERPHBLFU]  " 

170  POKE  53281.3  POKE  53280,10 
180  fop  j«5276p  to  52853 

190  REAF  D  POKE  J,D 
200  ND=*ND+1 
210  TD-TD+D 
220  NEXT  .1 

230  IF  NDO80  RND  TDO11604  THEN  PRINT " IPOWN JEPROPE  MEI  D 
0TFI.  “  ;  END 


P*  R*LFN(flf ) • IF  fi-0  THET 


R-LEN'fl») : OOTC 


248  PRINT"DRMMI  IL  TESTO  SU  PIU'  P 1  OHE  (FINO  8  100" 

250  PRINTTRB(3) ”E  TERMI NR  CON  UN  [POSSOIP  E  T  U  P  NCBLEUI' 
260  FOP  J-l  TO  40 :  PRINT"  [ROSR3»C  BLE'JT"  •  :NFXT  J 
270  PRINT 
280  DIM  R$ C 1 00 > 

290  INPUT  ” T DOWN ] TESTO 

0 

300  IF  RC39  THEN  fl<( I l»LFFTf ( " 

/2)+R*  I«l+1  OOTO  2R0 

310  R*<  I  )«LEFT*(R* ,  38)  '  R*-MI  D*(  R»  ,  39)  I^I  +  l 
320  P»PEEK(646) 

330  POP  H»532*>6  TO  56295  POKE  H,P  NEXT  H 
3J0  POKE  33263. PEEKC53263)  RNP  247 
330  K-0 

360  PRINT-ICLERRH25  DONNI"; 

370  POKE  33263, <PEEK<?3263>  RND  248)  OP  7 
W0  PRINT"CUPr,R*(K)  K-K+l  IF  K>I  THEN  K»0 
390  FOR  TO  0  STFP  -1 

P0KE  255, P  SYS  32768 
410  FOR  T-l  TO  30  NEXT  T 
420  NEXT  P 
430  SVS  32791 
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19-A 

300 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORI;  64 


440  GOTO  380 

430  DATA  173,17,208,41,170,208,249,173,18,208,208,244,173,17, 
208,41,248,3,253 

460  DRTR  141,17,208,96,120,173.17.208,41,128,208,248,173,18,2 
08,201,251,208,242 

470  DRTR  173,17,708,9,7,141,17,208,162,0,189,40,4,137,0,4,232 
,200,247, 189,40 

480  DRTR  3, 137,0,3,232,208,247, 1R9, 48, 6, 157,0,6,232,208,247, 1 
89,40,7,137,0,7 

490  DRTR  232,224,192,208,245,08,96 
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Grafica  HI-RES 


Flash  della  cornice 


100  PFM  *♦♦*****♦**♦***♦♦*♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦**** 

110  PER  *  I  RIIPEGGIRMENIO  PELI  fl  i  OPN1CF  ♦ 

120  PER  t  DMPRNTE  UN  Ciao  C'FT  PI  RTTFCR  ♦ 
130  PER 

140  CLP  PP 1  NT " [ CLFfiP] T BL FU 3 " 

150  POI  E  532R1 .3  PfiKE  53.2R0.10 
160  FOP  fc=4R152  TO 
170  PERD  NPOKE  F.N 
100  NEXT  K 

190  DRTR  232, 142,32. 200 .224,15, 2«R . ? . 1 62. 0, «6 
200  SVS  49152 

210  PPINTTRB'AV'PPERI  UN  TRSTO  PEP  TEPfl I NRPF " 

220  GET  0*  IF  Ot="“  THFN  SVA  4'-<15?  nnTn 


HI-RES  n.  1 

100  PER  ****•«*»««**••«**••»•••*•••»•** 

110  PER  «  ROUTINE  ccrp^etrrente  IN  • 

120  PER  •  BASIC  PER  TPACC ! RPE  PUNTI  • 

130  PER  •  IN  HI  RE  3  • 

140  PER  «  REPS I ONE  N. 1  • 

150  PER 

160  CLP  PR I  NT " t  CLERP  H  BlEU I “ 

170  PO*E  53201,3  POFE  53200.10 

100  PRINT"L'ORIOINE  DELLE  COOPDINRTE  E'  L'  ANGOLO 
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100  ROUTINE  IN  BASIC  PER  II.  COMMODORE  64 


190  PRI NT" SUPERI  ORE  SINISTRO. 

200  PRINT'IDOUNI  IN  ASCISSA  CI  SONO  3?0  PUNTI  E  IN" 

210  PRINT’OPDINATA  200  PUNTI." 

220  PR I NT " [ DOWN 3  SCEOL I  LE  COORDINATE  DI  UN  PUNTO,  E" 
230  PRINT "QUANDO  HO  TERMINATO,  PREMI  UN  TASTO" 

240  PR I NT " OUAL SIASI  PER  RICOMINCIARE." 

230  PR INT " [DOWN]  QUESTA  E'  SOLTANTO  UNA  ROUTINE" 

260  PR I NT’DI MOSTRAT I VA. “ 

270  INPUT  "(DOUNI ASC  ISSA  (DA  0  A  319)", X 
280  X-INTCX) 

290  IF  X<0  OR  X>3!9  TMEN  270 

300  INPUT  “ [DOWN 3 OR DI  NATA  (DA  0  A  199)". V 

310  V-INTCV) 

320  IF  V<0  OR  VM99  THEN  300 

330  REM  A1ILITAZI0NE  HIRES 

340  A “3 3272  B- 1 024*8  OA-7 

330  POKE  A.PEEK(R)  OR  0 

360  POKE  C.PEEK(C)  OR  32 

370  FOR  K-B  TO  B+7999  POKE  K,0  NEXT 

380  FOR  K-1024  TO  2023  POKE  K, I  NEXT 

390  REM  ACCENSIONE  PIXEL  DI  COOPD1NATÉ  X,V 

400  RI «INT ( X/0)  REM  RIOA  IN  B. R. 

410  C0-1NT(V28)  REM  COLONNA  IN  B.R. 

420  FR-V  AND  7  REM  FRA2I0NE  DI  COLONNA 
430  BV»B*CO«320+8*RI*FR 
440  P-7-CX  AND  7) 

430  POKE  BV.PEEKCBV)  OR  ?  TP 

460  OET  OS  IF  M»"  “  THEN  460 

470  REM  RITORNO  IN  BASSA  RISOLUZIONE 

480  POKE  C.PEEK(C)  AND  223 

490  POKE  A, PEEKCA)  AND  247 

300  PR I NT "CCL ERRI ANCORA  7" 

310  OET  Qf  IF  0*-'"  THEN  310 
320  IF  Q*."S"  THEN  270 
330  PR INT " [ DOUNI OK  -  FINE." 


HI-RES  n.  2 


100  REM 
110  REM 
120  REM 
130  REM 
140  REM 
130  REM 
160  CLR 


•  ROUTINE  RAPIDA  IN  L.M. 

•  PER  TRACCIARE  PUNTI  IN 

<  HIRES 

•  VERSIONE  N.2 


: PRINT  "CCLEARKBLEUI* 

170  POKE  33281,3  POKE  33280,10 

180  PRINT"L 'ORIGINE  DELLE  COORDINATE  E'  L'  ANGOLO" 
190  PRINT "SUPERI ORE  SINISTRO. 

200  PRINT" [DONNI  IN  ASCISSA  CI  SONO  320  PUNTI  E 


IN" 


grafica  hi-res 
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210  PRINT''ORDINATA  200  PUNTI." 

220  PRINT''ID0UN1  SCEGLI  LE  COORDINATE  DI  UN  PUNTO,  E" 
230  PRINT"0UANDO  HO  TERMINATO,  PREMI  UN  TASTO'' 

240  PRINT"OUHLSIASI  PER  RICOMINCIARE.  >' 

250  PRI NT "[DONNI  QUESTA  E'  SOLTANTO  UNA  ROUTINE'' 

260  PRINT''DIMOSTRATIVA.  " 

270  REM  PULIZIA  MEMORIA 
280  POR  KM91S2  TO  49176 
290  READ  Z  POKE  K,Z 
300  NEXT  K 

310  REM  INPUT  COORDINATE 

320  INPUT  "[DONNI ASC  ISSA  (DA  0  A  319)”. X 

330  X-INT(X) 

340  IF  X<0  OR  K>319  THEN  320 

350  INPUT  " C DOWN 1 ORDÌ  NATA  (DA  0  A  199>";V 

360  V-INT(V) 

370  IF  VC0  OR  VOI 99  THEN  350 

380  REM  ABILITAZIONE  HIRE9 
390  A-53272B" 1024*8  C*A-7 
400  POKE  A.PEEK(A)  OR  0 
410  POKE  C,PEEK(C>  OR  37 
420  SVS  49132 

430  FOR  K-1024  TO  2023  POKE  K, 1  NEXT  K 
440  REM  ACCENSIONE  PIXEL  DI  COORDINATE  X,V 
450  RI»INT(X/8>  REM  RIOAINB.R. 

460  CO" I NT ( V/8 >  REM  COLONNA  IN  B.R. 

470  FR"V  AND  7  :  REM  FRAZIONE  DI  COLONNA 
480  BV"B*CO*320+8*RI +FR 
490  P"7-(X  AND  7) 

300  POKE  BV.PEEK(BV)  OR  2 TP 

310  GET  Q*  IF  Q*-""  THEN  31A 

320  REM  RITORNO  IN  BASSA  RISOLUZIONE 

330  POKE  C.PEEK(C)  HND  223 

340  POKE  A, PEEK(fl)  AND  247 

330  PR I  NT " [ CLE AR ] ANCORA  7" 

360  OET  Q*  IF  Q*«"“  THEN  360 
370  IF  Q*" "S"  THEN  320 
380  PRINT-CDOUNIOK  -  FINE." 

390  DATA  169,0,133.231,169,32,133,252,162,32,160,0,169,0 
600  DATA  145.231, 136,288, 251 , 230,252, 202,208, 246, 96 


Cerchi  HI-RES 

100  PEM  **«****♦******************) 

110  REM  *  HI-RES 

128  PEM  • 

130  REM  •  TRACCIAMENTO  CERCHIO 

140  REM  **t*M**»**«*****«*»M*t** 

130  POKE  53281,3  POKE  53280,10 
160  CLR  PRINT"  tCLEAPKBLEUl" 
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100  ROUTINI-:  l\  BASIC  PER  IL  COMMODORE  B4 


170  A-53272  B* 1024*9  C-A-7 

100  REM  ABILITAZIONE  HI-RE9 

190  POKE  A, PEEK(A)  OR  8 

200  POKE  C,P€EK(C)  OR  32 

210  PEPI  PULIZIA  SCHERMO 

220  GOSUB  400 

230  SVS  49152 

240  REM  SFONDO  BLU 

250  FOR  K-1024  TO  2023 

260  POKE  K,6 

270  NEXT  K 

280  REM  DATI  CIRCONFERENZA 
290  XC-160  VC-100  P-50 
300  GOSUB  500 

310  REM  RIPRISTINO  BASSA  RISOLUZIONE 

320  OET  Q*  IE  0*-""  THEN  320 

330  POKE  C,PEEK<C)  AND  223 

340  POKE  R,PEEK<fl)  AND  247 

350  PRINT-ICLEARK2  DONNI  ANCORA  ?" 

360  OET  M  IF  0««”"  THEN  360 
370  IF  W“S"  THEN  RUN 
380  PRINT"C2  DONNI OK  -  FINE." 

390  END 

400  REM  PULI2IA  DI  SCHERMO 
410  T-0 

420  FOR  H-49152  TO  49176 
430  READ  Z  POKE  N,Z 
440  NEXT  N 

450  DATA  169.0.133,251,169,32, 133,252 
460  DATA  162.32,160,0,169,0,145.251 
470  DATA  136-298,251,238,252.202,208 

488  DATA  246.96 
490  RETURN 

500  REM  CALCOLO  COORD.  PUNTI 
510  FOR  Xl"-R  TO  R 
520  V1-S0RCR4R-X14X1) 

530  X-XC+Xl 

540  V-VC+V1 

550  OOSUB  590 

560  V-VC-V1  GOSUB  590 

370  NEXT  XI 

580  RETURN 

590  PEM  TRACCIAMENTO  PUNTI 
600  P"B*320RINT< V/BI+8RINT  <X/8>  +  < V  AND 
610  POKE  P,PEEK(P1  *  OR  C2t(7-(X  AND 
£20  RETURN 


7) 

7)  )  > 


grafica  hi-res 
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Superfici  spaziali  in  HI-RES 


iPé  pem  *♦♦*»♦*♦♦♦♦♦**♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

110  PFM  *  TPhiIC  1RI1FNT0  PI  UNH  'AllpFPFiriF  * 
120  PEM  *  IN  HI-PEP  ♦ 

]10  PEM  ♦ 

140  CI  P  PPINV'CCI  EfiPllRLEU]" 
is0  poke  53201,3  pope  5328010 

1 60  PEM  - 

170  PEM  PE'E  D I PPOS I  ?  I ONF  HJ-PFF 

100  PEM  - 

100  BR=P I 92 

200  POPE  53272.  PEFM  5  3272'  np  p 
210  FOIE  53365. PEE1 '53265  ,  OP  32 
2 20  POP  K=»BfH  Tu  BR+799? 

210  PDXF  X  ,  0 
240  NEXT.  J< 

250  POP  K»1024  TO  2023  POPE  K.3NFXT  K 

260  PEM  - 

270  PEM  TPFTCIFlMEHTn  OPRFIrO 

2P0  PEM  - 

290  X«  <t/2000 
300  M=1/S0P<2' 

310  UEF  FN  p<  2 >  =  10*rnS(K*^XP*XP+VP»VF  » ) 

320  FPP  :;p=-100  TU  100 

330  Vl=5»INTfSQP< 10000-XPfXP)/5) 

340  FOP  VP*V1  TO  -VI  PTEP  -5 

350  Z-FN  FUSF'R<XP*XP+VP*VP))-»»VP 

360  1F  VP-V1  THEN  300 

370  1F  ZC71  TFFN  400 

380  X«160+XP  V- 100-1  NT  fZ/2)  POSI 'B  460 

390  Z1=Z 

400  NEXT  VP 

410  NEXT  XP 

420  GOTO  420 

430  REM  - 

440  REM  TRflCCIHMFNTO  PUNTI 

450  REM  - 

460  X-1NTCX)  V-INT(V) 

470  1F  X<0  OR  X>319  THFN  510 

480  1F  V<0  OR  Y>199  THEN  510 

490  P-BFl+320«TNT(V/fl)+8*INT<:X/8)4(V  RND  7> 
500  POKE  P,PEEk(P)  OR  <2t(7-(X  HNB  7))) 
510  RETURN 
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100  ROUTINE  IN  BASIC  PUR  II.  COMMODORE  64 


Creazione  rapida  di  sprites 

100  REM  **9M«w***»#fi|i**!t***«**+*'»¥tM*«iM*t ♦♦  t*** 

110  REM  *  CREAZIONE  DI  SPPITES  CON  CALCOLO  ♦ 

120  REM  *  AUTOMATICO  DEI  DATA  E  V I RURL ì Z7AZ I ONE  » 

130  REM  «  DELLO  SPPITE.  CREATO,  SUI  VIDEO  ♦ 

140  REM  *»****♦♦*♦***♦***<**♦**♦<♦.♦♦♦♦♦*♦»♦,*,., 

150  CLR  : PRINT" [OLEARI I  BLEU1 " 

160  POKE  53281,3  POKE  532R0,10 
170  V-53248 

180  REM  -  AZZERAMENTO  BUFFER  CASSETTA  - 

190  FOR  K-0  TO  63 • POKE  832+K , A  NEXT  K 

200  REM  -  INI  ZI AL.  CAPATTFR.  SPRITF  - 

210  POKE  V+16,1  POKE  V*1 , 56  POKE  V+21,1  PlìKE  V-t-34,2  POKE  2 
040,13 

220  POKE  V+23, 1 : POKE  V+29,1 

230  REM  -  LETTURA  DELLA  MASCHEPA  - 

240  FOR  K»0  TO  28 : PRINT  1000+K "DATA" ,  RFAD  R* 

250  FOR  H«0  TO  2 
260  T-0 

270  FOR  J«0  TO  7 
280  B-0 

290  IF  MID*(ftf , J+H48+1 , 1 )«"0"  THEH  B«1 
300  T-T+B02TC7-J) 

310  NEXT 

320  PRINT  T",";:POKE  832+K*3+H,T 
330  NEXT 

340  PRINT" [LEFTD  “ 

350  NEXT 

360  REM  -  MASCHERA  MODIFICABILE  R  PIACERE  - 

370  REM  . . .012345678901234567890123 


380 

DATA 

"  M<MII<IHMMMMMM<  " 

390 

DATA 

“• . 

A  " 

406 

DATA 

.000000000. 

410 

DATA 

‘0.  .0 . 0. 

420 

DATA 

*0.. 000. 000.0. 

. . .000. . .0” 

430 

DATA 

*0..., 0.000.0. 

. . .0.0. . .0" 

440 

DATA 

"0.  .000.000.00000000000.0" 

450 

DATA 

*0. .0. . .000. . . 

460 

DRTA 

"0. .0 . 

. É.ft» 

470 

DATA 

*00000000.0“ 

480 

DATA 

■0....00 . 

. . .00. . . .0" 

490 

DATA 

*0.  ..0000 . 

. .0000. . .0" 

500 

DATA 

•  •  •  •  iti  •  •  •  •  • 

. . .00. . . .0" 

510 

DATA 

“0 . 

520 

DATH 

”0.0000, .0. .0. 

0. .0000. .0” 

530 

DATA 

”0.0 . 0.  .0. 

0.  .0 . 0" 

540 

DATA 

”0.0 . 0.  .0. 

0. .000. . .0” 

550 

DATA 

“  • .  a . 1.  a 

.A.  .A _ A" 

560 

DATA 

”0.0000.  .0.  .0000.  .0  .  0" 

570 

DATA 

”0 . 

. AN 

580 

DATA 

” 000000000000000000000000  " 

(iKAFICA  hi-res 
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Attivazione  comando  Plot 


10U  REM  ♦♦***♦***#•»****’*♦*#«***♦*♦'* 

Ila  REM  *  HTTlVHZITiNE  l.  OtlRNUG  IH  RLOI  * 

12(3  REM  *  IN  HIRES  * 

1 3-j  REM  *  * 

140  REM  •  INIT  PfcP  NTTIVMRt  * 

[N0  REM  *  PLOTOOCVl  PER  TRhCCIRRE  * 

1  b0  REM  *  * 

1  ?0  REM  *  I  I'HE  PUNII  PRIME!  DEI  fOHMNIU  * 


100  REM  *  SONU  NE CEàSMRl  » 

190  REM  ********************************* 


2 00  poke  5326 \.i  pure  534:00-10 

210  CLR  : PRINT" [CLEHR] [ BEFU] " 

220  FOR  K-  49152  TU  49461 

230  REMD  N 

240  POKE  R  -  N 

250  TD=TD+N 

2b0  NEXT  Y 

2/63  IF  TDO44690  THEII  PRI UT " f  DOWN] ERRORE  NEI  DRTR.  “  :END 
260  POKE  808,0  POKE  609-192 

290  REM  - 

300  REM  INIZIO  TRmCCIHMENTO  ORHF1CO 

310  REM  - 

320  INIT 

330  FOR  K-0  TÙ  2*«  STEP  .1 
340  X=INU50*SIN(K  <  >  +  t60 
350  V* 1  NT  C 504CÙ6(K )  >  + 1 00 
360  PLOT(X)CV) 

370  NEXT 

300  OET  R*IF  R*»"*  THEN  380 

390  REM  - 

400  REM  RITORNO  RLLR  BhSSR  RISOLUZIONE 

410  REM  - 

420  POKE  53265- 155  POKE  53272,21 
430  PRI  NT  "1CLERR1" 

440  DRTR  165- 157 -  240 . 3 -  76  -  23? - 246, 165. 122-133,248. 165, 123, 133 
,249,32, 121 

450  DRTR  0,201,58,208,31 ,32,  1 15,0. 201 ,80,240,  15,234,234,234,2 

34 . 234 

460  DRTR  234, 234, 234, 201-/3, 208. 12. 76, 29. 193, 76, 11, 193, 234, 23 

4.234.234 

478  DRTR  234,234, 1 65,246, 193, 122, 165,249, 1 33, 123,76,237,246, 3 
2-115,0,32 

480  DRTR  241,174,32,191,177,165,100,133,251,165,101,133,250,3 
2,241 , 174,32 

490  DRTR  191 , 177, 165, 101 , 133,252,32,98, 192,208, 167,240, 165, 16 

9,32, 133,254 

500  DRTR  169.0, 133.253, 165,252.41 .246,74,74, 74, 168,240, 16,24, 
165,253 

510  DRTR  105,64,133,253,144,2,230.254,230.254,136,208.240,102 
,251,165,250 
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00  ROUTINI-  l\  BASIC  IM-.K  11.  COMMODORI;  64 


520  DRTR  106,  74, 74  ■  10,  10,42,  144, 3- 230,  254,24,  101 ,233,  133,253, 

1 44  •  2 

530  DRTR  230,  25T,  165. 25.-',  41 , 7-24,  101 , 253,  133,253,  144-2,230,23 
4, 163,0 

540  Wttft  166,133,251.  lt>‘.,2Nà,  41 , 7.  170,232.56,  102, 251  -  202,  206, 
251,165,251 

550  DRTR  17,253,  145,253,96,  169. 3lfe,  13,  17,200,  141, 17,208,  169,6, 
13,24 

560  DRTR  20Ò  141,24, 200, 1 69 • 32 ■ 1 3 3, 254, 163  0, 133,253. 160, 0, lb 
0,0, 143 

570  DRTR  253.200,200,251.230,254,165.254,201,64,208,241,169,0 
, 133,253, 169 

580  DRTR  4, 133.254. 160,0. 169,39, 145,233,200,208,231 ,238,254, 1 
63,234  201 

390  DRTR  0,208,241.32.113,0.76,7,192.76,53,192,160,0,32,113,0 
,217,47 

680  DRTR  193,208,243,200. 192,3. 28H, 243, 76,64, 192, 160,0,32, 1 13 

,0,217.30 

610  DRTR  1^3, 708. 225, 200, l 92, 3, 208,243, 76, 192, 192, 76, 79,84, 78 
,73,94,0 
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Spostamento  cursore  e  scroti 


Posizione  cursore  n.  1 


100  REM  ******************************* 

110  REn  *  POSIZIONE  AUTOMATICA  * 

120  PEn  *  DEL  CURSORE  SU  UN  PUNTO  * 

130  PER  *  QUALSIASI  DELLO  SCHERMO  • 
140  REM  •  VERSIONE  N. 1  • 

150  REM  »***M**«M«*M*M*»*»M***MM 
160  POKE  53281,3  POKE  53280,10 
170  r|_R  PRINT"  CCLE8PKBLEU1" 

180  Ot»" I  HOME  H  25  DOWN)" 

190  DIM  Off 25) 

200  POR  K*1  TO  25  QfOO-LEFTf'Qf,  K)  NE*T 
210  INPUT  "COLONNA" , C 


220 

C-INTCC)  IF  C<1 

OR 

040 

THFN 

210 

230 

INPUT  " CDOWN1RIGR 

"  ,R 

240 

R-1NT(«)  IF  RC1 

OR 

R>25 

THEN 

230 

250 

OOSUB  310 

260 

PRINT "4-  RNCORR  ■>" 

270 

OET  Of  IF  Of-""  THEN 

270 

280  IF  Of«"S"  THEN  PPINT"[CLEAR]"  DOTO  210 
290  PRINT" CDOUNIOK  -  FINE" 

300  END 

310  REM  POS  I Z I ONPMENT 0  CURSORE 
320  PRINTOf(R)TRKC); 

330  RETURN 
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100  KOI  USI  IN  BASIC  l’hR  11  COMMODORI-:  04 


Posizione  cursore  n.  2 


100  OEM  ***MMM*M*M**»**«»*»»**i 

110  REM  *  POSIZIONE  AUTOMATICA 
120  PEM  #  DEL  CURSORE  SU  UN  PUNTO 
130  RE  11  f  QURLSIRS!  DELLO  SCHERMO 
140  PEPI  •  VERSIONE  N,  ? 

150  PEPI 

160  POKE  33281.3  POKE  33280. 10 
170  CLP  PRINT"  ICLERPK  BLEUl " 

180  INPUT  “COLONNA" ;C 


190 

C-INTCC) 

IF 

C<1 

OR 

040 

THEN 

180 

200 

INPUT  ” t DOWN IRIDA' 

',R 

210 

R-INTCR) 

IF 

R<1 

OR 

R>?3 

THFN 

208 

220  GOSUB  280 

230  PRINT “4.  RNCOPR 

240  GET  OS  IF  0*»"“  THEN  240 

230  IF  Q*»”S"  THEN  170 

260  PRINT'IDOWNIOK  -  FINE" 

270  END 

280  PEPI  SUBPOUT I NE  DI  POSIZIONAMENTO 
290  PRINTCHRFC 19) 

300  IF  C-l  THEN  330 
310  FOP  K-2  TO  C 
320  PRINTCHRFC29);  NEXT  K 
330  IF  R-l  THEN  360 
340  FOR  K-2  TO  R 
330  PRINTCHR«(17>,  NEKT  K 
360  RETURN 


Posizione  cursore  n.  3 


100  REM  •*****M***»»**«**4**«»*»**i 

110  PEM  •  POSIZIONE  AUTOMATICA 
120  REM  •  DEL  CURSORE  SU  UN  PLINTO 
130  REM  0  QUALSIASI  DELLO  SCHERMO 
140  PEM  •  VERSIONE  N.3 

130  REM  •*M«*M'*»*«»**«**M«**«»*ti 
160  POKE  33281.3  POKE  33280,10 
170  CLR  PRINT" [CLEAP] t BLEU] " 

180  V— 1024  REM  LOCAZ.  PARTENZA  VIDEO 
190  INPUT  "COLONNA", C 


200 

C-1NT(C>  IF 

C<1 

OR 

040 

THEN 

190 

210 

INPUT  "CDOUNJRIOA 

" .  R 

220 

R-INTCR) : IF 

R<1 

OR 

R>23 

THEN 

210 

230  GOSUB  290 

240  PRINT"»-  ANCORA 

230  OET  OS  IF  Q*-"“  THEN  230 


s POSTAMENTO  CURSORK  K  SCKOI  I 


260  IF  Qf-"8“  TMEN  170 
270  PR I NT " C DOWN  1 OF  -  FINE" 

280  END 

290  REM  SUBROUT1NE  DI  POSIZIONAMENTO 

300  POFE  211-C 

310  Rl-V+P<40 

320  R2«INT<Rl/236> 

330  POFE  210- R2 

340  POFE  209. RI -R2<236 

350  RETURN 


Scroll  verso  il  basso 


100  REM  MMM<<MMMMM<MMMM<M< 

110  REM  <  SCROLLINO  < 

120  REM  <  » 

130  REM  <  VERSO  IL  BASSO  < 

140  REM  MMMMMMM<<M<MMMMMM 
130  POKE  33291.3  POKE  33280.10 
160  CLR  PRINT"[CLEARUBLEUJ“ 

170  GOSUB  240 

180  PP1NT”  STRINGA  DI  PROVA" 

190  PR 1  NT " [ 3  DONNI  (PREMERE  UN  TASTO  PER  LO  SCROLLINO) 

200  GET  0*  IF  0*»''"  THEN  200 

210  SYS  49360 

220  DOTO  200 

230  END 

240  REM  SUBROUTINE  DI  SCROLLINO 
230  POR  K-49360  TO  49433 
260  READ  A  POFE  F-A 
270  NEXT  K 

200  DATA  169-132-133.231.189,7. 133.232 
290  DATA  169-192.133.233.169-7.133,234 
300  DATA  162-24,160-39-177,231,143,233 
310  DATA  24-163-232.103,212-133.232.24 
320  DATA  163-234,103,212-133.234,177,231 
330  DATA  145-233-36- 163,232  233-212- 133 
340  DATA  232-36. 163-234, 233. 212-133, 234 
330  DATA  136-40,3,76-220-192-36,163 
360  DATA  231-233-40,133-231-163,232-233 
370  DATA  0- 133.2^2. 163 . 233,233, 40, 133 
380  DATA  233-163-234.233,0,133.234-202 
390  DATA  240-3-76,226,192,96 
400  RETURN 
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100  ROl  TINI  IN  BASIC  PI  k  II.  COMMODORE  04 


Scroll  a  destra 

100  PER  •••M**«***M**»M*»**0*««»«** 

110  REM*  SCROLLINO  * 

120  REM  *  * 

130  REM  •  A  DESTRA  • 

140  REM  «•***•»*«****»***•»«*******«•• 

130  POKE  33201,3  POKE  3320A, 10 
160  CLR  PRINT"  CCLEARKBLEU)" 

170  GOSUB  240 

180  PRINT*  STRINGA  DI  PROVA" 

190  PRINT" [3  DOUN]  (PREMERE  UN  TASTO  PER  LO  SCROLLINO)" 

200  OET  G*  IF  0*-"”  THEN  200 

210  SVS  49132 

220  GOTO  200 

230  END 

240  REM  SUBPOUT INE  DI  SCROLLINO 
230  FOR  K-49132  TO  49246 
260  READ  A  POKE  K , A 

270  HEXT  k 

280  DATA  160,38,1690,133.231,169,4 
290  DATA  133,232,169,1,133,233,169,4 
300  DATA  133,234,162,23,177,231,143,253 
310  DATA  24,163,232,103,212,133,252,24 
320  DATA  163,234,105,212,133254,177,231 
330  DATA  143,233,36,163,232,233,212,133 
340  DATA  232-36,163,234,233,212,133,234 
330  DATA  24,163,231,103,40,133,231,163 
360  DATA  232-103,0,133,232,24,163,233 
370  DATA  103,40,133,233,163,234,103,0 
380  DATA  133,234,202,240,3,76,20,192 
390  DATA  136,48,3,76,2,192,96 
400  RETURN 


Scroll  a  sinistra 

100  REM  ••*+*«*****»»***«*«»*«*»«*****• 

110  REM*  SCROLLINO  * 

120  REM  *  * 

130  REM  •  A  SINISTRA  * 

140  REM  *»•****•***»*«•****»«***•«*•**• 

130  POKE  33281,3  POKE  33288,10 
168  CLR  PRINT " I OLEARI IBLEO 1 " 

170  GOSUB  240 

180  PRINT"  STRINGA  DI  PROVA" 

190  PRINT" C 3  DOUN]  (PREMERE  UN  TASTO  PER  LO  SCROLLINO)" 

200  OET  Q*  IF  0*»""  THEN  200 

210  SVS  49234 

220  GOTO  200 

230  END 

240  REM  SUBPOUT INE  DI  SCROLLINO 


SI’OSTAM KNTO  CURSORI  H  SCROl-1- 
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230  POR  K-49234  TO  49330 
260  READ  fi  POKE  K.A 
270  NEXT  K 

200  ERTA  160.01 169, 1 . 133.231, 169.4 
290  DATA  133,232,169,0,133.233.169,4 
300  DATA  133,234, 162,23, 177,231 , 143,233 
310  DATA  24,169,252,103.212,133,232,24 
320  DATA  163,234,103,212,133,234,177,231 
330  DATA  143,233,36,163,232,233,212,133 
340  DATA  232,36,163,234,233,212,133,234 
330  DATA  24,163,231,103,40,133,231,163 
360  DATA  232,103.0,133,232.24,163,233 
370  DATA  103,40,133.293,163.234,103,0 
380  DATA  133,234,202,240,3.76.  122, 192 
390  DATA  200,192,35,240,3,76.104,192,96 
400  RETURN 
410  RETURN 


Scroll  migliore 


100  REM 
110  REn 

120  REA 
130  REA 
140  REA 
130  REA 
160  REA 
170  REA 
180  REA 
190  REA 
200  REA 
210  REA 
220  REA 
230  REA 
240  REA 
230  REA 
260  PEA 
270  REA 
290  REA 
290  REA 
300  PEA 
310  REA 
320  REA 
330  REA 
340  PEA 
330  REA 
360  REA 
370  REA 
380  REA 
390  REA 


•  LO  SCROLL  VIENE  ATTIVATO  CON  LA  SVS  49132 

•  LA  ROUTINE  PERMETTE  DI  REALIZZARE  LO  SCROLL  DI 

•  UNA  FINESTRA  LE  CUI  DIMENSIONI  E  CARATTERISTICHE 

•  POSSONO  ESSERE  FISSATE  CON  LE  SEOUENTI  POKE 

•  POKE  49322. N  PER  LA  DIREZIONE  DI  SCROLL 

«  DOVE  N-l  A  SINISTRA 

«  N-7  A  DESTRA 

«  N-3  IN  SU 

«  N-4  IN  GIU' 

«  POKE  49373, N  MARO  !  NE  SINISTRO  (DA  0  A  39) 

•  POKE  49324, N  MARGINE  DESTRO  (DA  0  A  39) 

•  POKE  49325, N  MARO INE  SUPERIORE  (DA  0  A  24) 

•  POKE  49326, N  MARGINE  INFERIORE  (DA  0  A  24) 

•  POKE  49327, N  CICLICITÀ'  ORIZZONTALE 

»  DOVE  :  N—0  NO,  E  81  RESTRINGE  DI  1 

«  N- 1  SI 

•  N-2  NO 

•  POKE  49320, N  CICLICITÀ'  VERTICALE 

•  DOVE  :  N-0  NO,  E  81  RESTAI NOE  DI  I 

«  N-l  SI 

«  N-2  NO 

«  SI  PUÒ'  AVERE  ANCHe  LO  SCROLL  LENTO  DI  TUTTO  LO 
a  SCHERMO  CON  ■ 

a  POKE  33270, (PEEK( 33270)  AND  248)4X  ♦ORIZZONTALE 
f  POKE  53263,  (PEEK03263)  AND  248)*V  ♦VERTICALE 
a  DOVE  X  ED  V  DEVONO  ESSERE  UN  NUMERO  COMPRESO  FRA 
a  0  E  7  PER  EFFETTUARE  LO  9CRQLL  DI  UNO  0  PIU' 
a  PIXEL. 


POKE  49320, N 

DOVE 
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100  ROUTINI:  IN  BASIC  PER  IL  COMMODORE  64 


400  CLR  PR I  NT  "[  CLERI»  HBLEU] 

410  POKE  33201, 3  POKE  33280,10 

420  FOR  K-49132  TO  49328  READ  NPOKE  K,N 

430  ND-ND+1 -T-T+NNEXT  K 

440  IF  ND0377  OR  TO40311  THEN  PRI  NT  "ERRORE  NEI  DRTR“ :  EN 
D 

430  PR I NT " 3CR0L L I MO  MEMORIZZATO. ” 

460  END 

470  DATA  174,114,193,224,3,144,3,76,117,192,180,114,193,140,1 
21,193,174 

480  DATA  110, 193,232,202,32,38, 193, 172, 121, 193, 173, 119, 193,20 
1,2,208, 10 

490  DATA  169,32,72,173.33,208,72,76,30,192,177,90,72,177,92,7 
2,204 

500  DATA  116,193,240.20.200,177,90,72,177,92,136,143,92,104,1 
43 j  90 j 200 

310  DATA  '204,116,193,208,238,240,10,136,177,90,72,177,92,200, 
143,92,104  __ 

320  DATA  143,90, 136,204, 1 13, 193  208,230, 173, 119, 193,201 ,0,208 
«  t9  /  1 04 1  1 04 

330  DATA  76,111,192,104,143,92,104,143,90,236,117,193,208,160 
,96,172,116 

340  DATA  193,200,189,114,193,170,32,30,193,173,120,193,201,2, 
208,19,136 

330  DATA  169,32,133,122,193.173,33,208,133,162,193.204,113,19 
3,208.239,240 

360  DATA  16,136-177,90,133,122,193,177,92,133,162,193,204,113 

,193,208.240  _ 

370  DATA  236,117-193-240,37,202,32,30,193-172,110,193,200,136 

, 177,90.72 

388  DATA  177,92,32,48,193,143,92,104,143,90,32,36,193,204,113 
,193,208 

390  DATA  234,236,117-193,208,221,240-46,282,206,110.193,232,3 
2.30, 193,172 

600  DATA  116. 193,200, 136,32,48, 193, 177, 98, 72, 177- 92, 32, 36, 193 
, 143,92 

610  DATA  104,143,90,204,113,193,208,234,236,118.193,200,221,2 
38, 1 18, 193,232 

620  DATA  32, 30, 193,  173,  120,  193, 201 -0,240,20, 172, 1 13, 193, 136,2 
00,183,162 

630  DATA  193,143,92.103,122,193,143,98,204,116,193,208,240,96 
,189,89,193  _ 

640  DATA  133,91,24,  103.212,  133,93, 189,64, 193, 133,96, 133,92,96 
,72, 132 

630  DATA  24,103,40,168,104,96,72,152,36,233,40,168,104,96,8,4 

0  /  90 

660  DATA  120,160,200,240,24,64,104,144,184,224,8,48,88,128,16 


8 • 200 • 248 

670  DATA  32,72,112.132,192-4,4,4,4,4.4,4,3,3,3,3,3 
680  DATA  3, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 3, 0-4, 8,4, 1,1 


SPOSTAMENTO  CURSORI-  I  SCHOI.I 
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Cancellamento  linee  di  programma 


tee  rem  t*********************************** 

110  REM  «  CANCELLAMENTO  DI  UNO  LINER  RAS I C  * 

12*  PEM  •****♦************»****»♦**»♦♦*»#♦*♦ 

13*  CLR  : PRINT " [ CLEAP] [Bl EUI  “ 

14*  POKE  33281 ,3P0kT  53280,10 

13*  REM  SI  VOOL1R  CANCELLARE  Lfl  LINER  1000 

16*  REM  SI  BATTA  PER  ESEMPIO 

17»  REM  1 000  ->"OK" 

18*  REM  E  SULLA  STESSA  LINER  ,  DI  SEGUITO  ,  SI 
19*  REM  PROSEGUA  CON 

20*  REM  1000  ?"0K"  REM 

21*  REM  QUINDI  BATTERE  LE  VIRGOLETTE ,  CANCELLARLE 
228  REM  CON  IL  TASTO  DELETE,  RIBATTERLE,  E  BATTERE 
23*  REM  PER  20  VOLTE  CONSECUTIVE  IL  TASTO  INST+SHIET 
24*  REM  (IL  CURSORE  RI  MARRA '  FERMO  MA  NON  FATECI  CASO) 
23*  REM  INFINE  BATTETE  20  VOLTE  CONSECUTIVE  IL  TA5T0 
26*  REM  DELETE  E  IL  RETURN 

27*  REM  LA  LINEA  NON  APPFIPIRR'  PIU'  SUL  LISTATO, 

28*  REM  MA  RIMAPRA'  OPERATIVA. 
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Effetti  sonori 


Effetti  sonori  n.  1 


100  PEPI  •M****M****«***M«****«*M4*i 

110  KEPI  •  EFFETTO  SONORO  ■ 

120  PEPI  •  NUME  PO  1  l 

130  PEPI  *  SCRLR  CON  IH  CAPIPRNR  l 
140  PEPI  ****4M**Mr****«*»***«****M4*i 
130  POKE  33201,3  POKE  33200,10 
160  CLR  PRINT " TCLERR] CBLEUI” 

170  £-34272 
180  FOR  K«1  TO  8 
190  PEHD  RCIO.BOO 
200  NEXT  K 

210  DATA  133.33' 162,37,62,42,103,44 

220  BRTR  60,30,99,36,73,63,13,67 

230  PEPI  INIZIRLIZZRZIONE 

240  FOR  K-S  TO  S*24  POKE  K,0  NEXT  K 

230  POKE  3*24,13  POKE  3*3,8 

260  POKE  3*3,11  POKE  3*6,11 

270  FOR  J»1  TO  0 

200  POKE  S,A<J>  POKE  S*1,B<J> 

290  PEPI  SELEZIONE  F OPPIA  D'ONDA 

300  POKE  3*4,63 

310  PEPI  CICLO  DI  RITRRDO 

320  FOR  T-l  TO  300  NEXT  T 

330  POKE  8*4» 64 

340  FOR  T-I  TO  30  NEXT  T 

330  NEXT  J 

360  POKE  3*24,0 

370  PR I  NT  "C  MUNÌ  ANCORA  7" 

380  OET  0»  IF  O*-"-  THEN  300 
390  IF  Of-’S"  THEN  RUN 


effetti  sonori 


Effetti  sonori  n.  2 


100  REM  «***a***************»**»****«* 

110  REM  *  EFFETTO  SONORO 

1Z0  REM  •  NUMERO  2  i 

130  REM  *  ESPLOSIONI  VARIE  i 

140  REM  ***«a . ******* . ***** 

130  POKE  33261,3  POKE  33280,10 
160  CLR  : PRINT" ICLERR1 CBLEU1 " 

170  3-34272 

100  REM  INIZIALIZZAZIONE 

190  FOR  K-S  TO  S+24  POKE  K ,  0  ' NEXT  K 

200  POKE  9+24,13 

210  FOR  K-7  TO  13 

220  POKE  3+3, K 

230  PRINT-K  -"K;TAB(13V'N  •*; 

240  FOR  N— 0  TO  13  3TEP  3 
230  PRINTNi 

260  POKE  3, 233 : POKE  S+I,N 

270  POKE  3+4, 129 

280  REM  CICLI  DI  RITARDO 

290  FOR  T-  1  TO  1500  NEXT  T 

300  POKE  3+4, 128 

310  FOR  T-  1  TO  30  NEXT  T 

320  NEXT  N 

330  PRINT 

340  NEXT  K 

330  POKE  S+24, 8 

360  PRINT"! DOWN 3 ANCORA  7" 

370  OET  W  IF  0*-""  THEN  370 
380  IF  G*-"9"  THEN  RUN 


Effetti  sonori  n  3 


100  REM  ******************************* 

110  REM  •  EFFETTO  SONORO  * 

120  REM  4  NUMERO  3  • 

130  REM  *  SIRENE  CON  FREQUENZA  VARIAI,* 

140  REM  ******************************* 

130  POKE  33281,3  POKE  33290,10 
168  CLR  :  PRINT  "CCLEARKBLEUr 
170  S-34272 

188  REM  INIZI  AL IZZAZIONE 

190  FOR  K-S  TO  S+24  POKE  K,0  NEXT  K 

200  POKE  S+24, 13 

210  POKE  S+3,17  POKE  9+6,246 

220  FOR  K-16  TO  233  STEP  16 

230  PRINT"! HOME 1 1 3  DOWNIK  -"K ; TABf 13 ) “ J  - 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


240  POKE  S+19.17  POKE  S+20,246 
250  POKE  3*14, K  POKE  3*13,0 
260  POKE  S*18,17P0KE  8*4,33 

270  POR  J-l  TO  100 
290  N-4*<PEEK( 8*27) >+8008 
290  Nl»INT<NK256> 

300  N2»N-2364NI 

310  POKE  S.N2 

320  POKE  S*1 ,  NI 

330  NEXT  J,K 

340  POKE  3*18,16 

350  POKE  3*4,32 

360  PR1NT"I2  DOUNIRNCORR  7" 

370  OET  04  IF  04-"’  THEN  370 
380  IF  Q4-"S"  THEN  PUH 
390  PRINT" CDOUNIOK  -  FINE." 


Effetti  sonori  n.  4 

100  REM  •••f******* *****4*«*M*«*t*f**l 

110  REPl  4  EFFETTO  SONORO  ' 

120  REM  «  NUMERO  4  I 

130  REM  •  CRDUTR  DI  UNA  BOMBR  i 
140  REM  ••••4*************************1 

150  POKE  53281,3  POKE  33280,10 
160  CLR  PR I  NT “ [ CLERR  K  BLEU 1 " 

170  S-34272 

180  REM  INIZIRLIZZRZIONE 

190  FOR  K«S  TO  S* 24  POKE  K,0  NEXT  K 

200  POKE  S *24, 136 

210  POKE  S*3, 17  POKE  3*6,246 

220  POKE  S* 19, 10  POKE  S*20,0 

230  POKE  S*I4,1  POKE  S*13- 4 

240  POKE  S+18, 33  POKE  S*4,33 

250  N-PEEKC 3*28)  IF  N<240  THEN  230 

260  F*24000*N»64 

270  F1-INT<FZ256)  F2"F-F1*236 

280  POKE  S-F2  POKE  3*1, FI 

290  N-PEEK(S*28)  IP  N>32  THEN  260 

300  POKE  9*18,16  POKE  8*4,32 

310  POKE  S*3,ll  POKE  8*6,9 

320  POKE  9,1  POKE  S*l,3 

330  POKE  3*24,13  POKE  9*4,129 

340  REM  CICLI  DI  RITRRDO 

350  FOR  T“1  TO  1000  NEKT  T 

360  POKE  8*4,120 

370  FOR  T-l  TO  500  NEKT  T 

380  POKE  3*24,0 

390  PRINT" C2  DOUN 3 RNCORR  ?" 

400  OET  04  IF  04* ”  “  T^N  400 
410  IF  04-"S"  THEN  PUH 
420  PRINT-C2  D0WN10K  -  FINE.’ 


effetti  sonori 
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Suoni  casuali  n.  1 


100  REM  *M*«******M**M***f*******4***** 

110  REM  *  SUONI  CASUALI  * 

120  REM  *  VEPSIONE  N. 1  * 

130  REM  *«*»MM**44"M*V*********M*»*t»«M 

140  CLP  PR1NT " ICLEAR 1 CBLEU3 " 

130  POKE  53281,3  POKE  53260,10 
160  PRINTTRB <  1 1  ) “ PER  FINIRE  BATTI  *■" 

170  8-34272 

180  POKE  S+24 ,  1?  : REM  VOLUME 
190  POKE  S+5,54  REM  RTTACK-DECAV 
200  POKE  S+6. 166  REM  SUSTRIN-RELAISE 
210  POKE  S+4 , 33 ■ REM  FORMH  D'ONDA 
220  NB-INT<RND(TI >*256> 

230  NR- 1  NT  (  PND  «'TI)  4256  ) 

240  D- 1  NT  f RND( T I )*256) 

230  POKE  8,NB 

288  POKE  S+l.Nfl 

270  FOP  K-l  TO  D  MEXT  K 

280  OET  0* 

290  IF  Q*-"+-"  THEN  310 
300  OOTO  220 
310  POKE  S+24,0 

320  PR1NT " [2  DOWN  1 OK  -  FINE  LAVORO." 


Suoni  casuali  n.  2 


100  REM  ***********»*•»»»*•»++«»***+***••** 

110  REM  ♦  SUONI  CASUALI  * 

120  REM  »  R  TRE  VOCI  * 

130  PEM  *  VEPSIONE  N. 2  * 

140  REM  •«***»**f***4**t***»*****«*tM*4»»** 

130  CLP  •  PRINT"  CCLERPH  BLEU1  " 

180  POKE  3328 1,3  POKE  53200,10 
170  PRINTTABUl  VPER  FINIRE  BRTTI  +•" 

180  S-54272 

190  SB<1)-S  8A(1)-S+1  PEM  NOTR  BASSA  ED  ALTA  PER  LA  VOCE  1 

«0  SB(2)-S+7SH(2)»S+8  PEM  NOTR  BASSA  E  ALTA  PEP  LA  VOCE  2 

210  SB(3)-S+ 14 : SAC  31-S+15  REM  NOTA  BASSA  E  RLTR  PER  LA  VOCE  3 

220  POKE  S+24, 15  REM  VOLUME 

230  POKE  S+5,54  REM  RTTACK-PECAV  VOCE  1 

240  POKE  3+12,54  REM  ATTACK-DFCAV  VOCE  2 

230  PQKE  S+19 . 54 : REM  ATTACK-DECAV  VOCE  A 

288  POKE  S+6, 168  REM  SUSTA IN-RELRI SE  VOT  1 

270  POKE  S+13,168  REM  SUSTA I N-RELA1 SE  VOCE  2 

280  POKE  8+20,168  REM  SUSTA IN-RFLAJ SE  VOCE  3 

290  POKE  8+4,33  REM  FORMA  D'ONDA  VOCE  1 

■*00  POKE  S+l  1,33  REM  FORMA  D'ONDA  VOCE  2 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


310  POKE  $418.33 : REM  FORMA  D'ONDA  VOCE  3 
320  NB-INT<RND<TI>*236> 

330  NR-INT  (RNDITl >*296) 

340  D-INTCRND<TI>*236) 

330  POKE  BB<1>,N8P0KE  8A( 1 ) /NA 
360  POKE  8B(2)<NB:P0KE  Sfl<2).NA/2 

370  POKE  8B(3),NB  POKE  SflC3>,NfV4 
380  FOR  K-l  TO  D:NEKT  K 
390  OET  0* 

400  IF  P*-"4-“  THEN  420 
410  OOTO  320 
420  POKE  8424 ,0 

430  PRINT“t2  D0WN10K  -  FINE  LAVOPO.“ 


Beep  sonoro  in  Basic 


100  REM  ************************************ 

110  PEM  *  EMISSIONE  DI  UH  REFP  SONORO  * 
120  RFI1  •  IN  B«cir  » 

130  PEM  ************************************ 
140  CI  P  PPINT“tCI  EAPHPLEH5" 

150  POKF  m??R|  .  <  f  rit'F  53280.  IH 
\f»  $-5477? 

170  POI' E  S*?4,  15 -PEM  - VOLUME - 

180  PPIHTTAIK1?>'(PREMI  Iti  TASTO >"' 

190  OFT  Qt  IF  THEN  190 

280  OOSUB  250 
210  OOTO  188 

228  REM  - 

230  PEM  EMISSIONE  BEEP 

248  REM  - 

258  POPE  S45.25  POKF  $46.4*1644 
260  POKE  S4 1,69  POKE  S,?9 
270  POKE  S44.33 
288  FOR  K-l  TO  88:NEKT  K 

300  REM  SPEGNIMENTO  BEFP 

310  REM  - 

328  POKE  $44 , 0POKE  S45,0POKE  «46.0 
330  RETURN 


effetti  sonori 
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Beep 


100  •  «••**t*«M*M**M*»M**«M*M 

110  REM  t  GENERAZIONE  DI  BEEP  * 

120  REM  *  AUTOMATICO  * 

130  «fi  . . . 

140  POKE  33201,3  POKE  33700,10 
130  CLR  PRINT"CCLEARUBLEUJ' 

160  POR  K-4913?  TO  49264 
170  READ  X  POKE  K,X 
180  NEXT  K 
190  SVS49132 

200  PRI NT "[DONNI  (PREMI  UN  TASTO  PER  IL  BEEP  )  " 

210  (JET  0*  IF  0*-""  THEN  210 

220  REM  •  E'  IL  SIMBOLO  PER  ATTIVARE  IL  BEEP 

230  GOTO  200 

240  DATA  160, 0,183,106, 192, 133, 113, 0,700, 192, 6, 20S, 243, 96, 32, 
20,192 

230  DATA  201,33,208,6,32,37, 192,32,30, 192,46, 163,  122,141,47,1 
92,163 

260  DATA  123,141,48,192,230,47,192,208,3,230,48,192,173,97,8, 

96  230 

270  DATA  122,208,2,230,123,96,169,37,141,233,211,169, 100,141, 
1,212.169 

200  DATA  13, 141-24, 212, 169-34, 141, 3, 212. 169, 16B, 141, 6. 212, 169 
.33,141 

290  DATA  4,212,169, 122, 133, 162, 163, 162, 16,232,169.32, 141,4,21 
2,169,0 

300  DATA  141,24,212,96,32,14,197,32,30,192,64 


c 


Files  e  sort 


Registrazione  files  su  nastro 

100  REM  •*****•♦***«*•**•«•*••*•♦*•*•** 

110  REM  •  FILES  SEQUENZIALI  • 

120  OEM  •  REGISTRAZIONE  SU  NASTRO  • 

130  REM  •♦*****♦«**♦«*•***♦•**♦***'***** 

140  POKE  33201.3  POKE  33280.10 
130  PRINT"CCLEARKBLEU3''  :CLR 

160  0*»"  "  REM  40  SPHZ1 

170  REM  APERTURA  CANALE 

180  OPEN  1,1.1, “FILE  CON  DHT I "  REM  L '  ULTIMO  UNO  SIGNIFICA  S 
CRITTURH 

190  B*-""  PRINT "CCLEAP1" 

200  PR 1  NT “ t ROSSO H DOWN] BATTI  LR  «  PER  FINIRE" 

210  REM  FORMAZIONE  CAMPI 

220  INPUT  "  [DOWN HBLEU1  COGNOME  E  NOME ”  ,  B* 

230  IF  LEFTSCBB,  1  )■''(*"  THEN  430 
240  B*-LEFT*(B*+0*,22) 

230  C*-B#  B*-"" 

260  INPUT  “ C DOWN] INDIRIZZO" , B* 

270  1F  LEFT*<B«,  1  THEN  430 

200  Bf-LEFT»CB*+O*,30> 

290  Cf»C*+B*  B*-"“ 

300  INPUT  " C  DOWN ITELE FONO" ,  B* 

310  IF  LEFTBCB*, 1 THEN  430 
320  B*-LEFT«<B*+0*. 10) 

330  Cf-C**B*  B*-'" 

340  REM 
330  REM 
360  REM 
370  REM 
380  REM 


IL  RECORD  E'  PRONTO  CON  UN  CAMPO  STANDARD  DI  22 
CARATTERI  PER  IL  NOME,  UNO  DI  38  CARATTERI  PER 
L'  INDIRIZZO  ED  UNO  DI  10  CFlRATTERI  PER  IL  TELEFONO 

«M**«*M*«****MM**««M**«*MM*«M«*«**««MM***l 


pH.KS  1  SOKT 
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390  ptMNTil-C* 

400  T"T41 

410  PRINT  FOR  K-l  TO  40  PR  1  NT " [ROSA]-! BLEU] "  ;  NEXT 
420  PRINT  Ct"'"'  GOTO  200 
430  REM  FINE  INPUT  DATI 
440  CLOSE  1 

450  PRINT" CCL£AR]OK  -  FINE  INTRODUZIONE  DATI 
460  PR INT" C2  DOUN]HHI  REGI  STRATO" T" INDIRIZZI." 


Lettura  files  su  nastro 


100  REM  M****»***«*«»*M***M*M****M* 

110  REM  •  FILES  SEQUENZIALI  » 

120  REM  •  LETTURA  DAL  NASTRO  • 

130  REM  HtlMtMOMMMMMMMtMIlM 
140  POKE  33201,3  POKE  33280,10 
130  PRINT" COLE AR ] [BLEU1 ”  CLR 
170  REM  APERTURA  CANALE 

180  OPEN  1,1, 8, "FILE  CON  DATI"  REM  LO  ZERO  SIGNIFICA  LETTURA 

190  C*- . PRINT" CCLEAR] " 

200  INPUT# 1,C* 

210  T-T+l 

220  IF  ST-64  THEN  300 

230  PR I  NT "[DOUN] [ROSSO ICOGNONE  »  CBLEUI "LEFTfCC#,  22) 

240  PR I NT "  [ DOWN 1 1 ROSSO  ] I ND IP  I ZZO  -  [ BLEU] "MI D* (C* ,  23,30) 

230  PRINT"!  DOWN)  [ROSSO! TELEFONO  ■  t  BLE'J]  "R IGHT*< C* ,  1 0) 

260  PR1NTTABO)  "  [  2  DOUN] < PPEMFRE  UN  TASTO  PER  SEOUITARE  )  " 

270  OET  Q*  IF  Q*-""  THEN  2?0 
280  OOTO  190 

300  REM  CHIUSURA  CANALE 
310  CLOSE  1 

320  PRINT"!CLEAR]FINE  DEL  FILE" 

330  PRINT"! DOUN ] HO  LETTO" T“  INDIRIZZI." 


Registrazione  files  sequenziali  su  disco 


100  PEM  ♦ 

110  REM  •  FILES  SEQUENZIALI  * 

120  PEM  *  REGI STPAZI ONF  SU  DISCO  * 

130  REM  *4MM«4**«**4M4*044***t*4*4*4 

140  POKE  53281 ■ 3  POKE  33280, 10 
150  PP I NT " [ CLEhP ] [ BLEU ] "  CLP 

160  0*="  "REM  40  SPAZI 

1 20  OPEN  15,0, 15  PEM  APERTURA  CANALE  ERRORI  E  COMANDI 
180  INPUT  "NOME  DEL  FILE", NO* 

190  PEM  APERTURA  CANALE  DATI 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


200  OPEN  6,8,6, "9  "*NO*+",S,U"  REM  SEQUENZIALE  W=SCPITTUR 

R 

210  B**  " "  PR  I NT " [ CLERR ] " 

220  PR I NT" [ ROSSO K DOWN] BATTI  LR  9  PER  FINIRE" 

230  REM  FORMAZIONE  CRMPI 

240  INPUT  " [ DOWN] f BLEUDCOGNOME  E  NOME " ■ B* 

250  1F  LEFTf'B», 1>«"9"  THEN  460 
260  B*-LEFT*<B*+0*,22> 

270  C*«B*  B*«" " 

280  INPUT  " C DOWN] INDIRIZZO” , B* 

290  IF  LEFTf'B*, l)-"@"  THEN  460 
300  B*«LEFT$<B*+O*,30) 

310  C*»C*+B*  B*-"" 

320  INPUT  " [DOWN] TELEFONO “/B* 

330  IF  LEFT*(B*, n-"9"  THEN  460 
340  B*«LEFT*(B*+0*, 10) 

350  C*»C**B*  B*“"“ 

360  REM  ***»#********»*♦**«****♦***♦*♦***♦*♦'*♦*♦**♦♦♦♦***♦*** 

370  REM  IL  RECORD  F'  PRONTO  CON  UN  CAMPO  STANDARD  DI  22 
380  PEM  CARATTERI  PER  IL  NOME,  UNO  DI  30  CARATTERI  PER 
390  REM  L'  INDIRIZZO  ED  UNO  DI  10  CARATTERI  PER  IL  TELEFONO 

400  REM  **«********♦********♦♦*♦♦♦♦♦*♦♦**♦*♦«♦♦♦»!♦***♦♦♦**♦** 

410  PRINT#6,C*CHP*(13) 

420  GOSUB  520 
430  T«T+1 

440  PR1NT  F0P  K-l  TO  40  PRINT" [R0SA3-C BLEU] " ,  NEXT 

450  PRINT  C*«““  GOTO  220 

460  REM  FINE  INPUT  DATI 

470  PRINT46, "FINE  DEL  FILE"CHR*a3’> 

480  CLOSE  6  CLOSE  15 

490  PRINT "tCLEARIOK  -  FINE  INTRODUZIONE  DATI 
500  PRINT" [2  DOWN ] HA I  REGISTRATO" T" INDIRIZZI , " 

510  END 

520  REM  TEST  ERPORE 

530  INPUT*15,E1,E2*.E3E4 

540  IF  El-50  OR  El<20  THEN  RETURN 

550  PRINT • PR I NTE 1 . E2* ,  E3 , E4 

560  CLOSE  6  CLOSE  15 


Lettura  files  sequenziali  su  disco 

JA0  REM 

110  REM  *  FILES  SEQUENZIALI  * 

120  REM  «  LETTURA  DAL  DISCO  * 

1 T0  REM 

140  POKE  53281,3  POKE  53200,10 
150  PRINT"[CLEAR] [BLEU1 "  CLR 

160  OPEN  15,9,15  REM  APERTURA  CANALE  COMANDI  ED  ERRORI 
170  INPUT  "NOME  DEL  FI  LE ".NO* 

160  REM  APERTURA  CANALE 


files  e  sort 
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190  OPEN  6,A,6.N0*+",S.P"  PEM  S=SEQUFNZIALE  P=LETTHRA 
200  C$= PR I  NT " £  CLFAR ] ” 

210  input#»;- C* 

220  GOSUB  360 

230  IP  C*-"FINE  DEL  FILE"  THEN  310 
240  T»T+ 1 

250  PP I NT "C DOWN ][ POSSO] COGNOME  -  CBLEU] "LEFTB'Cf . 22) 

260  FRI NT "[DOWN] [ROSSO]  INDIRIZZO  •  CBLEU]  "MI  D*<C*,  23,  30} 
270  PP I NT "C DOWN] [POSSO] TELE FONO  *  CBLEU] "PIGHTfCC#,  10) 

280  PPINTTAB'5)"C2  DOWN] ' PREMERE  un  TASTO  PER  SEGUI  TAPE ) " 
290  GET  OS  IF  O*.""  THEN  290 
300  DOTO  200 

310  REM  CHIUSURA  CANALE 

320  CLOSE  6  CLOSE  15 

330  PRINT" CCLEAR]FINE  DEL  FILE" 

340  PR I NT " [ DOWN ] HO  LETTO“T“  INDIRIZZI . “ 

330  END 

360  REM  TEST  ERRORI 

370  INPUTtl 5- E1 , E2i , E3 ■ E4 

380  IF  El-30  OR  El<20  THEN  RETURN 

390  PRINT  PRINTE 1  - E2f  E3  E4 

400  CLOSE  6  CLOSE  13 


Registrazione  files  relativi  su  disco 


100  REM  *#♦♦*♦♦♦♦♦♦♦♦♦*♦«♦«♦♦♦*♦♦♦*♦♦*♦♦ 

110  REM  *  FILES  PELATIVI  ♦ 

120  REM  *  REGISTRAZIONE  SU  DISCO  * 

130  PEM 

140  POKE  33281, 3-P0kE  53290-10 
150  PRINT" CCLEAR] I BLFU] "  CLR 

160  0*«"  "  PEM  40  SPAZI 

170  NC«66  T*="«-"+CHPf <  13' 

180  OPEN  15,8,13  PEM  APERTURA  CANAI. E  EPPORI  E  COMANDI 
198  INPUT  "NOME  DEL  FILE"  NO* 

200  INPUT  "CPOUN]QUANTI  PECOPDS",NP 
210  PEM  APERTURA  CANALE  DATI 

220  OPEN  6,8.6. ■'♦NO*  +  ".l  ,  "♦CHP* ■  NC >  REM  NC=66=*LUN0HEZZA  R 

ECORD 

230  REM  66-23+30+10+t  (L'ULTIMO  E'  IL  RETURN  DI  FINE  RECORD 

240  REM  - 

250  REM  CREAZIONE  FILE 

260  REM  - - - 

270  FOR  K“ 1  TO  NR-1 
280  BA«lNT(K/236>  BB-K-BA 

290  PPINT#15,  "P*’CHP#(6)CHRt  <  BB  iCHPt 1  BA)CHP*<’0) 

300  PPINT#6-T# 

310  GOSUB  750 
320  NEXT  K 
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100  ROUTINE  IN  BASIC  PKR  II.  COMMODORI;  04 


330  BA=INT<NR/236VBB*NP-BA 

340  REM  MARCATURA  DELL'ULTIMO  RECORD  DEL  FILE 
350  PRINTH15,  “P'XHRff 6) CHR<< BB  ICHRf''  BA  )CHPf  <0) 

360  T*-"FINE  DEL  FILE"*CHR*<  1 3) 

370  PPINTÌ6.T* 

380  GOSUB  750 

330  REM  . . - . . * - 

400  REM  FORMAZIONE  DEL  RECORD 

410  REM  - 

420  B**""  PPINT"[CLEBR1“ 

430  PR I NT "  C POSSO JCDOUN] BOTTI  Lfl  @  PER  FINIRE" 

440  REM  FORMAZIONE  CAMPI 

450  INPUT  "CDOWNMBLE 01  COGNOME  E  NOME  "  -  B* 

460  IF  LEFTBCB», 1 )■"«"  THEN  620 
470  B*-LEFT*(B*+0*,25) 

480  C*«B*  B$*"" 

490  U»>UT  “ CDOUNI IND I  PI  ZZO" ,  B* 

500  IF  LEFT*(Bf .  1  >*"(T'  THEN  620 
510  Bf»LEFT$'B**O*.30) 

520  C*»C*+B*  B*“" " 

530  INPUT  “ I DOWN] TELEFONO", B* 

540  IF  LEFTf <B#j  1  THEN  620 

550  B**LEFT»CBf«-0*,  10) 

560  Cf»C*+B**CHR*<13)  Bf*"" 

570  T-T+l 

580  IF  T»NR  THEN  PRINT"[Z  DOWN] ULTIMO  RECORD  DISPONIBILE 
: FOR  J-l  TO  1000  NEXT  J 

590  PR1NT  FOR  J-l  TO  40  PPI NT" [POSAI.r BLFUl " ,  NEXT  J 

600  GOSUB  660 

610  C*“" " ■ GOTO  430 

620  CLOSE  6  CLOSE  13 

630  PR INT " [ CLE AR I HA I  Rf G I STRATO" T "  RECORDS  PEI"NR 
640  PR I  NT " D I SPON I B I L 1 .  " 

630  END 

660  REM  - - - 

670  REM  REGISTRAZIONE  RECORD 

680  REM  - 

690  BA»INT (T/236)  BB-T-BA 

700  PRINTf 15, "P"CHR*<6)CHP*<BB)CHR*(BA)CHR*'  0) 

710  PR1NTH6.C* 

720  OOSUB  770 
730  PETiJRN 

740  REM  - 

750  REM  TEST  ERPORE 

760  REM  - - — - - 

770  INPUTÌ13, E1 , E2*, F3, E4 

780  IF  El-30  OR  E  1*31  OR  El*70  OR  E1C20  THEN  RETURN 
790  PRINT  PPINTE1 , E2*. E3, E4 
880  CLOSE  6  CLOSE  13 
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files  e  sort 


Lettura  files  relativi  su  disco 


100  REM  ***♦♦♦«♦*♦*♦♦***«**+♦«**♦*♦♦**** 

110  REM  *  FILES  RELATIVI  * 

120  REM  *  LETTURA  DA  DISCO  * 

130  REM  *****«*«**♦*♦*♦***♦*•*♦•****••* 

140  POKE  33281.3  POFE  33280.10 
130  PRINT" [OLEARI [BLEUI"  CLR 

160  REM  DETERM1NB2IONE  CARATTERISTICHE  DEL  FILE 
170  INPUT  "NOME  DEL  FILE". NO* 

180  INPUT  "C DOWN  INUMERÒ  OLOBALE  DI  RECORDS" , NR 
190  NC=66  REM  25*30*10+1  CL'UNO  E'  PER  IL  RETURN) 

200  OPEN  138.11 

210  OPEN  6. 0.6, NO**", L, “+CHP*(NC> 

220  GOSUB  630 

230  REM  SCELTA  DEL  RECORD  DA  LEGGERE 

?40  REM  - 

230  PP INT" CCLEARINEL  FILE  CI  SONO"NR“  RECORDS" 

260  INPUT  " [ DOWN ] DUALE  VUOI  LEOOERE" . AX 
270  IF  AX>NR  THEN  260 

280  PRINT  CPOUNI IL  RECORD  E'  FORMATO  DA  3  CAMPI  " 

290  PRINTTABf 15) “t DOWN II  -  NOME" 

300  PRINTTAB(13)"[ DOWN 12  -  INDIRIZZO" 

310  PRJ NTTAB( 13) ‘ I DOWN 13  -  TELEFONO" 

320  PRINT” [ DOUN I VUO I  LEGGERLO  CROSSCJTCBLEUIUTTO,  G  SOLO  UNO  D 

EI" 

330  PRINT "CAMPI  [POSSOI1  2  3CBLEU]  7" 

340  PR I  NT  “  C  2  DOWNUBATTI  [  ROSSO  IFCBLEUI  PER  FINIRE)" 

330  GET  Q*  IF  &*■•’*  THEN  350 

360  IF  0*0*1"  AND  0*0*2"  AND  0*<>"3“  AND  0*O"T"  AND 


0*O*F*  THEN  330 


370 

IF 

0*«"F" 

THEN 

380 

380 

IF 

0**"I" 

THEN 

PC»!  LC-23  GOTO 

420 

390 

IF 

0 *-"2" 

THEN 

PC-26  LC-30  GOTO 

420 

400 

IF 

0*-*3" 

THEN 

PC»36  LC-10  GOTO 

420 

410 

420 

PC* 

REM 

1  LC-63 

430  REM  POSIZIONAMENTO  DEL  PUNTATORE  PER  LA  LETTURA  DEL  RECOR 
D 

440  REM  - - - 

430  BA-INT<AX/236)  BB-AX-BA 

460  PRINTB13, ”P"CHR*(6)C«?*CBB)CHR*(Bfl)CHP*E0) 

470  INPUT #6, C* 

480  GOSUB  630 

490  IF  C*"“«-“  THEN  PRINT -[POSSO II  DOWN] RECORD  VUOTO. [ BLEUJ “ 
FOR  K-l  TO  1000  NEXT  K  GOTO  230 

300  REM  - - - 

310  REM  VISUALIZZAZIONE  DEL  RECORD  0  DEL  CATPO  SCELTO 

320  REM  - 

330  PR I NT "t CLEARING  TROVATO  " 

340  PRINT  PRINTM i D*(C*. PC . LC ) 

330  PRINTTABO T " [ 2  DOUNK PREMI  UN  TASTO  PER  SEOU I T ARE ) " 
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1 00  KOI  TI \ li  IN  BASIC  l’I  K  IL  COMMODOKH  64 


360  GET  OS  IF  OS-"”  THEN  360 
370  GOTO  230 
380  CLOSE  13  CLOSE  6 
390  END 

600  PEM  - 

610  REM  TEST  DI  ERRORE 

620  REM  - 

630  INPUT# 13< E 1  - E2S, E3,  E4 

640  IF  El<20  OR  E 1 -30  OR  El-31  OR  E1-70  THEN  RETURN 
630  PRINT  PRINTE1 ,E2S,E3,E4 
660  CLOSE  13  CLOSE  6 


Sort  alfabetico 


100  REM  #MHnMS**M****»M*******M«***S 

110  REM  *  ORDINAMENTO  ALFABETICO  DI  < 

120  REM  *  UNA  LISTA  DI  NOMI  CON  • 

130  REM  *  OPZIONE  DI  STAMPA  * 

140  REM  *»»»♦****♦*#**#»*•#*********<**• 

130  PRINT"CCLEARKBLEUr  CLR 
160  OS-" [HOME K 23  DONNI " 

170  DIM  QSC25) 

180  FOR  K— 1  TO  23  OS(K)-LEFTS<OS,K)  NEXT 
190  POKE  33281,3  POKE  33280,10 

200  A#»"  [ POSSO 3 ORD INAMENTO  ALFABETI CO CBLEU 3" 

210  PRINTAS  OOSUB  710 

220  PPINT0S(21 ) : OOSUB  710  PRINT 

230  PRINT0S(24) "CROSSO!  IN  BASIC  -  VIA  SEZZE  22  LAT INA-487631 [ 
BLEU  3 " 

240  PRINTQSC9) "QUANTI  NOMI  DEVI  ORDINARE" I : INPUT  NN 
250  DIM  NSCNN) 

260  PRINT"  [DOWN  3  C'URL'E'  IL  TITOLO"  INPUT  "  I  DOWN  3  DELL'  ELENCO"  i 
TES 

270  Kl-3  OOSUB  730  Kl-9 

280  PR1NTQSÌ6) "  OK  -  ORA  DAMMI  I  NOMI  DA  ORDINARE  " 

290  PRINT" [ D0UN3  (  PER  FINIRE  BATTI  [R0SS03SCBLEU3  3" 

300  REM  CICLO  DI  INPUT 
310  FOR  V-l  TO  NN 

320  PRINTQSC 103V"*  -  NOME  ",  INPUT  NSCV3 

330  IF  LEFTf (N#< V) , 1 THEN  NS(V>-""  NN-V-rOOTO  330 

340  OOSUB  730  NEXTV 

330  REM  INIZIO  ORDINAMENTO 

360  FOR  K-l  TO  NN- 1 

370  FOR  J-K+1  TO  NN 

380  IF  NSCKX-NSU)  THEN  400 

390  T S-NSOO  NSOO"NS<  J>  NS( J3-TS 

400  NEXTJ 

410  NEXTK 

420  REM  FINE  ORDINAMENTO 


FlI.hS  t  SUR  I 
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430  Xl*3  OOSUB  730 

440  PRINTQK  6  )  "  VUOI  STAMPARE  L'FLENCQ  ?" 

430  OOSUB  770 

460  IF  W**"3“  THEN  370 

470  OOSUB  730  PRI NTQ*(3) "  ECCO  L'  ELENCO  ORDINATO 
400  FOP  K-l  TO  NN 

490  IF  K/l  0* I  NT (K/ 1 0 )  THEN  QW»17  DOTO  310 
300  QW*K- 1  NT  (K/l  0 ) *  1 0»7 
510  PRINTQ*(QW)K,N*'K) 

320  IP  K/l  8* INT (K/ 1 0)  THEN  OOSUB  660 

530  NEXT 

540  OOSUB  660 

530  GOSUB  730 

560  PR INTO*( 13) "  FINE  LAVORO. "  END 
370  OPEN  4.4 

500  PRINT#4,SPC(40-LEN(TE*>/2>TE* 

590  FOR  K*1  TO  3  PRINTM  NEXT 

600  FOR  K>1  TO  NN 

610  PRINTM, K"  -  "N*(K) 

620  NEXTK 
630  CLOSE  4 

640  PR1NTQ*( 13) "FINE  LAVORO. " 

630  END 

660  REM  CICLI  DI  10  VOCABOLI 

670  PRINTQ*(20)"  (PREMI  UN  TASTO)" 

680  GET  14*  IF  W*-""  THEN  680 
690  Kl-6  OOSUB  730  PRINTQ*<6) 

700  RETURN 
710  REM  BARRA 

720  FOR  K=»l  TO  40  PR  INT"  I  ROSA  Tal  BLEUJ  :  NEXT  RETURN 
730  REM  CANCELLAMENTO 

?40  0*m"  "REM  42  SPHZ 

750  FOR  K2-K1  TO  20  PRINTQ*(K2)LEFT*(O*,40)  NEXT 
760  RETURN 
770  REM  OET 

780  PR INTQ*(20) "  (PREMI  UN  TASTO)" 

790  OET  14*  IF  14**“  "  THEN  790 
800  RETURN 


Sort  numerico 


100  REM  ******* *************** ******! 

110  REM  *  ORDINAMENTO  DI 

120  REM  •  UNA  LISTA  DI  NUMERI  CON 
130  REM  *  OPZIONE  DI  STAMPA 

140  REM  *«*M****«***«**««***«a»**«*i 

130  PRINT"tCLEAR]  [BLEUV  ■  CLR 
160  0*-" [HOME] [23  DOWN] " 

170  DIM  0*(23) 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


180  FOR  K-l  TO  23  Q*00-LEFT*'Q*,K>  NEXT 
190  POKE  33281,3  POKE  33200,10 

200  A*-"  [ROSSO)  OR  D1NAMENT0  NUMERI CO CBLEU)" 

210  PPINTH* : GOSUB  720 

220  PRINTQ*<21>  GOSUB  720  PRINT 

230  PRINTQ*<24)" [ROSSO]  IN  BASIC  -  VIH  SEZZE  22  LATINA-407631 t 
BLEU)" 

240  PRINTQS<9)“QURNTI  NUMERI  DEVI  ORDINARE";  1  INPUT  NN 
230  DIM  N(NN) 

260  PPINT"£DOUN)QUAL'E'  IL  TITOLO" ;  INPUT  " [DOWN] DELL' ELENCO " J 
TE» 

270  K 1-3  GOSUB  740  K 1-9 

280  PRINTQ*<  6) "  OK  -  ORA  DAMMI  1  NUMERI  DA  ORDINARE  ” 

290  PRINT"[DOUN)  <  PER  FINIRE  BATTI  [ROSSO )»(BLEU)  >" 

300  REM  CICLO  DI  INPUT 
310  FOR  Y-l  TO  NN 

320  PRINTQ*<  10)V“*  -  NUMERO  INPUT  N» 

330  IF  LEFT*<H»,  1  )■•••“  THEN  NN-V-100T0  360 
340  N<V>-VAL<N*> 

330  OOSUB  740  NEXTV 

360  REM  INIZIO  ORDINAMENTO 

370  FOR  K-l  TO  NN-1 

380  FOR  J-K-l  TO  NN 

390  IF  N(KX*N(J)  THEN  410 

400  T-N',KrN<K)-N<J>N<J>-T 

410  NEXTJ 

420  NEXTK 

430  REM  FINE  ORDINAMENTO 
440  Kl-3  OOSUB  740 

430  PRINTQ»<6>"  VUOI  STAMPARE  L'ELENCO  7* 

460  OOSUB  780 

470  IF  W*-“S*  THEN  380 

480  GOSUB  740  : PR I NTQ» ( 3  > "  ECCO  L'  ELENCO  ORDINATO  :• 

300  F  Kzle-INTfK/10)  THEN  QW-17  OOTO  320 
310  OH-K-INTCK/I0)*10*'7 
320  PRINTQ*<QW)K"  -  ”N(K) 

330  IF  K/10-INT<K/10)  THEN  OOSUB  670 

340  NEXT 

530  OOSUB  670 

360  OOSUB  740 

370  PRINTQ*< 13)“  FINE  LAVORO. “END 
300  OPEN  4,4 

390  PR I NT04 , SPC ( 40-LEN<  TE» ) 72 ) TE* 

600  FOR  K-l  TO  3  PRINT 04 : NEXT 
610  FOR  K-l  TO  NN 
620  PRINT #4, K“  ■  “N<K) 

630  NEXTK 
640  CLOSE  4 

630  PR INTQ*( 13) "FINE  LAVORO. “ 

660  END 

670  REM  CICLI  DI  10  VOCABOLI 

680  PRINTO»<20)“  [PREMI  UN  TASTO) “ 


files  e  sort 
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690  GET  Ut  IF  Ut-””  THEN  690 
700  Kl-6  GOSUB  740  PRINTQf (6) 

710  RETURN 
770  REM  BARRA 

730  FOR  K«1  TO  40  ' PRINT " [ROSA ]■[ BLEU1 " ;  NEXTRETURN 
740  REM  CANCELLAMENTO 
750  Ot«“ 

760  FOR  K2«K1  TO  30  PRINTO*CK2)LFFTf<Of-40)  NEXT 
770  RETURN 

7I0  PR1NTG$<20)"  (PREMI  UN  TASTO) ’ 

000  GET  Ut  IF  Ut-"“  THEN  A00 
010  RETURN 


REM  42  SPHZ 


7 


Varie 


Caleidoscopio 


100  REM  *******♦**********$************ 

110  REM  •  * 

120  REM  •  CALEIDOSCOPIO  * 

130  REM  *  • 

140  REM  *««**«t****«****t**t****«*«*««* 

130  CLR  PRINT" CCLEHR1 IBLEU 1 
160  POKE  33281,3  POKE  33200,10 
170  r-rne<-ti> 

180  DIM  P(12),Bfl2'>  fl-19  B-12  S-1024  SS-33296  CC-6 

190  T-INT(37*RHD(TI))+66 

200  POR  J-0  TO  12  •  NEXT 

210  FOR  J-0  TO  12  ^  R-INT(13*RND<TI>> 

220  U-RCJ)  A(J)-H<R>  RCR)-U  NEXT  J 
230  FOR  J-0  TO  12  :  R-INT< 1 3*RND(TI ) ) 

240  U-B(J)  Bf J>»B'R)  BCR1-W  NEXT  J 
230  FOR  J-0  TO  12  FOR  K-0  TO  12 
260  P-fl(J)  U-BCK)  C-R+W+T 
270  REM  RIFLESSIONI  SPECULARI 


280 

X-fl+R 

y-B*w 

GOSUB 

480 

290 

V-B-U 

OOSUB 

400 

300 

X-fl-R 

OOSUB 

480 

310 

V-B+H 

OOSUB 

480 

320 

X-fl*U 

V-B+R 

OOSUB 

488 

330 

V-B-R 

OOSUB 

480 

340 

X-A-W 

OOSUB 

480 

330 

V-B+R 

OOSUB 

480 

360  NEXT  NEXT 

370  FOR  J-l  TO  2000  NEXT 
380  N-63  M-63 


VARIE 
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4QA  POR  >1  TO  INT(21*RNDai)H10 
400  R-INT<22*RND(TI>>*1  :  WINT(M*PND<Tn) 

410  T“8 

420  IF  RNDCTI >>.0  THEN  T-T+I 
430  FOR  K*T  TO  T+999  8TEP  R 
440  POPE  K,N*U 
450  NEXT  NEXT 
460  OOTO  190 
470  REM 
400  MOKE 
490  POPE 


ROUTINE  DI  STAMPA  E  CAMBIO  COLORE 
SSM0*V+X,CC 

_  3*40*V*X.C 

500  CC-INT(RND<TI)*16> 

510  IP  CC-3  THEN  500  REM 
FONDO 
520  RETURN 


ELIMINAZIONE  COLORE  UOUALE  ALLO  8 


Anagrammi 


•  ROUTINE  PER  ANAGRAMMARE 
f  RAPIDAMENTE  UNA  PAROLA 


PRINT"CCLEARUBLEUI 
160  POKE  53281,3  POKE  53290,10 
170  INPUT  "C3  DONNI BATTI  UNA  PAROLA  «"iPP* 

180  N-LENCPP*) 

190  K*N-1 

200  P*«"**"  *  PP* 

210  IF  K<0  THEN  END 
220  PCK>«P<K)4l 

230  IF  P<K»N-K-1  THEN  POO-0  ■  K“K'l  :  OOTO  210 
240  A»-"" 

250  FOR  K«0  TO  N-l 
260  AMA8+MI D«(P8,POO*3, 1) 

270  P*-LEFT«(P*,PCK>*2)-H11Df(P*,P<K>+4) 

280  NEXT  K 

290  PRINTR8,  :  OOTO  190 


100  REM 
110  REM 
115  REM 
120  REM 
140  REM 


Divisione  in  sillabe 


70  REM  *********** 4M **♦************' 

80  REM  •  DIVISIONE  IN  SILLABE  DI  UNA 
90  PEM  •  P  A  P  0  L  A 

100  PEM  «  (DI  M.  80SCAP0L) 

110  REM  44***************************1 


68 


100  KOI  TINK  IN  BASO  PI' R  IL  COMMODORE  64 


120  PO* E  53201,3  POKE  53280,10 
130  CLR  PP INT " CCLEAP ] [  BLEUD  * 

140  INPUT  "[DOWN] BATTI  UNA  PAROLA"  8* 
145  PRINT 


150 

H-LEN<R<) 

160 

IF  HO  THEN 

460 

REM  STAMPA 

170 

1  =  1 

180 

OOSUB  480 

190 

IF  L-0  THEN 

430 

200 

L  >L 

210 

>1  +  1 

220 

IF  I >H  THEN 

460 

230 

IF  MID<<A<, I , 

1  >•"► 

r  THEN  210 

240 

OOSUB  480 

250 

IF  L-0  THEN 

340 

260 

IF  LI "2  OR 

L-2 

THEN  300 

270 

>1-1 

280 

OOSUB  580 

290 

GOTO  130 

300 

>1  +  1 

310 

IF  I>H  THEN 

460 

320 

Ll-L 

330 

GOTO  240 

340 

>1  +  1 

330 

IF  I>H  THEN 

460 

360 

OOSUB  480 

370 

IF  L-0  THEN 

400 

380 

>1-2 

390 

GOTO  280 

400 

OOSUB  610 

410 

IF  8-0  THEN 

270 

420 

GOTO  380 

430 

>1  +  1 

440 

IF  I>H  THEN 

460 

450 

GOTO  180 

pò  1  kJTM 

462  PPINT-C2  DOUN] ANCORA  ?- 

463  GET  Q<  IF  Q<-""  THEN  463 

464  IF  ©«-'•S"  THEN  130 

470  PRINT" t7  D0WN10K  -  FINE  LAVORO. "  END 
480  REM  RICONOSCA.  VOCALI 
490  L<-MID<<A<, 1,1) 

500  IF  L»«"I"  OR  L<-"U“  THEN  560 

310  IF  LI-MR"  OR  L<-"E“  OR  L<-"0"  THEN 

320  L-0 

330  RETURN 

340  L-l 

330  RETURN 

360  L-2 

370  RETURN 

380  REM  STRMPR  DELLA  SILLABA 
590  PRINTMID<<A< , 1 , J) i 
600  A<-MID<fA<,  J+lì 


340 


VARIE 
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610  RETURN 

620  PEM  GRUPPO  CONSONANTICO 
630 

640  M**MIDfP*.I,  1) 

6?0  IP  L*-M*  THEN  7 10 

660  IP  L*»"G"  AND  M*»"N"  THEN  730 

670  IP  L*»"L"  OR  L*»"M"  OR  L*»"N"  OR  Lf* "R"  OR  L*b"7" 
THEN  710 

680  IP  L*«"S"  OR  M*«"R"  THEN  730 

630  IP  l»*="T"  THEN  710 

700  IF  OR  THEN  730 

710  S=0 

720  RETURN 

730  S-l 

740  RETURN 


Stampa  diretta 

100  REM  M**M«**M**»«M*****M'M*****»***»*Mt*!M> 

110PEM*  DATTILOGRAFIA  * 

120  PEH  *  SCPITTIJRA  SU  STAMPANTE  « 

130  REM  *  r  D I  OGNI  TIPO;  * 

140  REM  ***M***»***********t4***'M*'»**4f4*«'<t'***f*4’ 

ISO  CLP  PPINT" t CLFAPT  [Bt  EI.M  “ 

160  POKE  53281,3  POPE  33780,10 

170  PRINT"  ACCENDI  LA  STAMPANTE  E  PPFMI  UN  TASTO" 

180  GET  0*  IF  0**""  THEN  180 

130  OPEN  4,4  REM  APERTURA  CANALE  DI  STAMPA 

200  PRINT"  [CLEAP]  "TRE1, 1  0  VA  •  PER  FINIPE" 

210  PPINT"  [HOME  H3  DOWH]"B*"_“ 

220  GET  0*IF  0*-" "  THEN  220 
230  IF  O**"0"  THEN  360 

240  IF  CJ**CHPfC?0)  HMD  LEN'B*K1  THEN  300 
250  IF  C'f“CHP*  <  20  >  THEN  B*-LEFT» < B* ,  I.EHTBf'-l  )  :  PR1NT"[CLEAR 
] " :  GOTO  300 

260  IF  ry*»CHR*'  13)  THEN  310 
270  B*«»*+n* 

280  IF  LEH<Bt)>70  THFH  PRlHT"t2  DOWN  JATTFNZ I OHF  :  FINE  RIGA 

i 

290  IP  LEN«B$WR  THEN  310 
300  GOTO  200 

310  REM  - 

320  REM  USCITA  PER  STAMPA  LINEA 

330  REM  - 

340  PRINTÌ4.F* 

330  B*«" "  GOTO  200 

3*0  REM  - 

370  REM  USCITA  PER  FINE  STAMPA 

380  REM  - 

390  CLOSE  4 

400  PRlNT-CCLEftRJOK  -  FINE." 
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100  ROl'TINH  IN  BASIC  PER  li.  COMMODORE  f>4 


Trasformazione  di  una  data  digitale 

100  OEM  «♦*♦♦♦«♦*♦*♦♦*****♦**«**♦**♦*** 

110  PEM  *  TRASFORMAZIONE  DI  UNA  DATA  • 

120  PEPI  *  DALLA  FORMA  DIGITALE  IN  * 

1 23  PEM  •  QUELLA  COMMERCIALE  * 

130  REM  ***«««♦♦*«**«*******♦**♦♦***«** 

140  POKE  53281  3  POKE  53280,10 

150  CLR  PRINT"  ICLEAR]  IBI  EUIBATT I  UNA  DATA  SOTTO  FORMA  NUMERI C 

A  " 

160  INPUT  "  I  DOWN  IME  SE"  ,K/. 

170  IF  MX<1  OR  MZ.M2  THEN  160 

180  INPUT  " CDOWNIGIORNO" ; O/C 

190  IF  GX<1  OR  GX>31  THEN  180 

200  INPUT  "[DOWN] ANNO  (ULTIME  DUE  CIFRE)” ,  AX 

210  IF  AZ<0  OR  GK>99  THEN  200 

220  GOSUB  290 

230  PRINT" [2  DOWN 3 CORRI SPONDE  A  -"D* 

240  PRINT ”12  DOWN] ANCORA  3“ 

250  GET  Q*  IF  (?#-“"  THEN  250 
260  IF  0«-”S"  THEN  RUN 
270  PRINT-CDOUNIOK  -  FINE.* 

280  END 

290  REM  TRASFORMAZIONE 

300  R*-”  GENFEBMAPAPRMAOGIULUGAGOSETQTTNOVDIC" 

310  D*-STR*(GJO  +  *  *4f1ID«(R«, 3*MX,  3) 

320  D*-D*+STR*(1900+A^> 

330  RETURN 


Controllo  elementi  di  una  stringa 

100  REM  •*«♦*♦***«*♦♦«***♦**««**•♦*♦♦** 

110  REM  «ROUTINE  PER  VERIFICARE  SE  GLI* 

120  PEM  «ELEMENTI  DI  UNA  STRINGA  SONO* 

130  PEM  *  TUTTI  DIVERSI  * 

140  PEM  *•«**♦**♦♦*♦♦**♦**«*«♦*♦*♦♦«♦♦* 

150  POKE  53281,3  POKE  53280,10 
160  CLR  PRINT" ICLEAPKBLEU3" 

170  INPUT  "BATTI  UNA  STRINGA"; A* 

180  L-LENCA*) 

190  FOP  K »  1  TO  L-l 
200  FOR  J-K+l  TO  L 
210  K*«MID*(A*,K,  1) 

220  J*«MID*(Rf, J,l) 

230  IF  K*«J*  THEN  26 A 
240  NEXTJ , K 

250  PRINT"! DOWN] TUTTE  LE  LETTERE  SONO  DI  VERSE"  GOTO  270 
260  PRINT" IDOWNDCI  SONO  LETTERE  UGUALI" 

270  PRINT"!  DOWN  ]  RINCORA  3“ 

280  GET  Q#  IF  0*»""  THEN  280 
290  IF  0*«"S”  THEN  160 


VARIE 
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Calendario  perpetuo 


REM  t******************************* 

110  REM  *  CRLENCftRIO  * 

120  REM  *  PERPETUO  * 

130  REM  li******************************* 

H0  POKE  53201  <3  POIfE  53280,10 


160  T1*»B  r~ 
170  T2*-“  1 

1 

T 

1 

i 

i 

i 

j 

— i 

1 

100  T3*»"  I — 

4 

4 

4  ' 

t 

i 

190  T4f« 


M*< l?>  «  D( 12) 

GENNAIO, 31 .  FEBBRAIO, 28, MARZO,  31  .APRI LE, 30 
MAGGIO, 3 1 , 01  UOMO, 30, LUGLIO, 31 , A008T0, 31 
SETTEMBRE , 3« , OTTOBRE  -  31 . NOVEMBRE , 30. DICEMBRE ,31 
K-l  TO  12 
M*<IO,DOO 
K 


200  DIM 
210  DATA 
220  DATA 
230  DATA 
240  POP 
250  READ 
260  NEXT 

270  REM  - 

200  REM  MRIN  PROGRAM 

290  REM  - 

300  PRINT"  CALENDARIO  PERPETUO" 

310  FOR  K>1  TO  40PRINT"CROSA)-£BLEU1"; iNEXT  K^PRINT 
320  INPUT  "C3  D0WN1QUALE  MESE  <1-12>":M1 
330  1F  MKl  OR  M)  >12  THEN  328 
348  INPUT  “ CDOWNIANN0" ;  VI 
350  IF  Vl<1900  OR  MO2100  THEN  340 
360  IF  MI >2  THEN  400 
370  M-Ml+10 
380  Y*Y1-1 
390  GOTO  420 
400  M-Ml-2 
V-Vl 

A“ I NT  <  < 1 3*M~ 1)25) 

D-l 

440  F»Y-<INT(V/100)*100) 

450  G»(Y-F>/100 
460  C*INT (F/4> 

470  H-INTCG/4) 

480  S»R+C+H+D+F-(2*G> 


410 

420 

430 


496  T-S-<INT<S/7)*7> 

500  L1»Y1-<INT<V1/100)*100) 
510  L-Ll-(INTCLl/4)*4) 

520  D-D<M1) 

530  IF  MI 02  THEN  630 
540  L2-<YI-L1)/100 
550  L3-L2-UNT<L274>*4> 

560  IF  LO0  THEN  640 
570  IF  L1O0  THEN  590 
500  IF  L3O0  THEN  640 
590  D-29 
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100  ROUTINI:  IN  BASIC  PUR  IL,  COMMODORI-:  64 


600  REM  - - - 

610  REM  T «01  ORNO  DELLft  SETTIMANA 
620  REM  D-NUM.  GIORNI  DEL  MESE 

630  REM  - 

640  QOSUB  710 
650  PRINT 

660  PRINT "e 3  DONNI [BLEU1 ANCORA  ?“ 

670  OET  Q*  IE  (?$■“"  THEN  670 

680  IF  0*-"8"  THEN  PR I NT "[CLEARH ROSSO I"  OOTO  300 
690  PRINT” [LONNIOK  -  FINE  LAVORO." 

700  END 

710  REM  - - - 

720  REM  STAMPA  VI  BEATA 

730  REM  - 

740  PRINT” [CLEAR) ” 

750  X“17-INT <LEH<M0<M1 ) >/2 > 

768  PR I NTT AB ( X ) " (  POSSO  1 " Mf ( M 1 ) V 1 

770  PRINT"! HOME 1 1 2  DONNI*  :PPINTTAB(2)"CBLEUI“TH 

780  FOR  K*1  TO  6 

790  PR I NTTAB ( 2  >  T2$  PR I NTT  AB  C  2  >  T  3* 

800  NEXT  K 

810  PRINTTAB<2)T2f  PRINTTABC2U4* 

820  PR I NT ” C  HOME  1(4  DONNI  I  DI  L  I  MB  I  ME  I  0  IV  1S“ 

830  REM  - 

840  REM  RIEMPIMENTO  TABELLA 

850  REM  - 

860  PRINT”! HOME  ICS  DONNI I VERDE  I ” 

870  T«T*5 

880  FOR  K«l  TO  D 

890  T”T +5 : I F  T-40  THEN  T-5 : PR INT ” [DONNI " 

900  PRINTTAB(T-2)K; 

910  NEXT  K 
920  RETURN 


Generatore  di  labirinti 


100  REM  ttt«***#M*««M*****«Mt*iM! 

110  REM  «  ALOORITMO  PI  C.BOND  PER 
120  REM  «  OENEPAPE  AUTOMATI  CRUENTE 

130  REM  •  DEI  LABIRINTI 

140  REM  *«*»*******•*««**«»<««*****: 

150  POPE  53281,3  POKE  53200.10 
160  CLR  PR I NT" [OLEARI [ BLEU1 ” 

170  Af 0)*2  A( 1 )»-80  A<2>«-2  A<3)*80 

180  NL-160  HL»32  SC-1024  A-SC+81 

190  REM  PREPARAZIONE  SFONDO 

200  FOR  K-l  TO  23 

210  PRINTCHRfC 18) i 

220  FOR  J-l  TO  39 

230  PRINTCHR*( 32) . 
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VAR1H 


240  NEXT  J 
250  PRINT 
260  NEXT  K 

270  PEH  GENERAZIONE  LABIRINTO 
280  POKE  A.  4 

290  J» I  NT ( RND(  T 1)94)  X«J 
300  B“R+W(J) 

310  IF  PEEK(B)«WL  THEN  POKE  B,J  POKE  A-*R<J)/2,HL 
290 

320  J»<  J+l  )*-CJ<3 )  IF  JOX  THEN  300 

330  >PEEK(R>  POKE  R,HL  IF  J<4  THEN  R-A-RfJ)  GOTO 

340  PEH  PREHEPE  UN  TASTO  PER  RVEPE  IL  TOPINO 

350  GET  C»  IF  C*«"“  THEN  350 

360  PEH  TOPINO  CHE  CEPCH  L'  USCITA 

370  POKE  R,8!  J-2 

380  B«R+RCJ>/2  IF  PEEK(B)«HL  THEN  POKE  B, 81  POKE 
J-(J42)+4*(J>1) 

390  J-(J-1>-4*'J»0)  GOTO  388 


Moschino  pazzo 


100  REM  *yt»**»*»**4*»4*+4*44**4t**4*«*4t***» 

110  PEH  •  MOSCHINO  PAZZO  » 

120  PEH  *******4#*# 44444444444444 ♦♦*♦♦*♦***♦ 4 

130  CLP  PRINT"! CLF RR H BL EU 1 “ 

140  POKE  53281,3  POKE  53280,10 
150  C$*"  [DOWN] IUP] IRIGHT)  tLEFT  ]  " 

160  P»INT(4*PND(TI)>+1 

170  PPINTHI DB (C* , P, 1 )" I ROSSO 14 IBLEI  0 1 1 EET  ]  " :  : 

180  FOP  K*  1  TO  30  :  NEXT  K  :  REM  CICLO  III  PITARDO 
190  PR I NT " [ PVS 3  [RVOFF 1 [LEFT 1  " , 

200  GOTO  160 


Lancio  di  dadi 


100  PEH  »*•*«•***•*«••***•*•***»•****»* 

110  PEH  •  LANCIO  DI  DUE  DADI  * 

120  REM  ***»«****»«•***»*«•••»••*»•**** 

130  PO» E  53281,3  POKE  53280,10 
140  CLR  PRINT" [CLERP I C  BLEU) " 

150  A*'1)-"[PV3I  [DOWNH3  LEFT]  •  [ DOUN1  (  3  LEFT) 

160  AB<2)-"[PV9]*  [DCWNK3  LEFT]  ID0UNH3  LEET]  * 

130  AB ( 3 1 ■"  [ RVS ]  *[ DOWN] [ 3  LEFT]  «  [DOWN] I 3  LEFT]* 

180  AB<«)»"[RVS]*  *[ DOWN] [ 3  LEFT)  tDOUN][3  LEFT)*  * 

190  Af < 5 ) ■" [PVS )•  *[ DOWN] [ 3  LEFT]  *  CDOWN][3  LEFT]*  * 

200  A*f6)»"IPVS)*  *1  DOWN] [ 3  LEFT]*  *CD0WN)[3  LEFT]*  * 


A*B  GOTO 
290 

A,HL  B-B 


74 


100  KOI  'UNI  IN  BASIC  PUR  II.  COMMODORE  64 


210  INPUT  "QUANTI  DADI  '  .  ND 
220  PR I  NT " C  NERO ] “ 

230  FOR  K-l  TO  ND 
240  NOO«JNT(RND<TI >«6)+l 
2*50  PRINTSPC < 2  ) ABCNOC )  )  , 

260  T-T+NOO 

263  FOR  J-l  TO  300  NEXT  J 
270  FOR  J-l  TO  300  NEXT  J 
290  NEXT  K 

290  PRINT  PRINT"CDOWNKBLEu:h«I  TOTAL IZ7AT0"T"  PUNTI." 
300  PRINT "[DOWN] ANCORA  7" 

310  OET  Q*  IF  QS- "  ’*  THEN  310 
320  IF  Q*-"S"  TNEN  RUN 


Mescolamento  di  un  mazzo 


100  REM  ***♦«**♦*♦**♦*****♦»*♦*♦♦♦♦*«** 

110  PEM  *  MESCOLAMENTO  DI  UN  MAZZO  DI  * 

120  PEM  •  3  2  CARTE  * 

130  PEM  *«**t*M****M«*t**«««*Mt«**** 

140  POKE  33281,3  POKE  33280,10 
130  CLP  PRINT'UCLEAR]  C  BLEUI  "  I 
160  DIM  Cf <31  ) 

170  QOSUB  310 

190  PEM  STAMPA  DEL  MAZZO  MESCOLATO 

190  FOR  K-0  TO  31 

200  0*00-MID«<S*,2*K+1,?> 

210  T f =PI OHTt f  Cf <  K ) , 1) 

220  IF  T$-"t"  OR  T*«"*"  THEN  PR INT "[ ROSSO  1 " , 

230  PRINTCBOO, 

240  PRINT" [ BLEU] “ , 

230  NEXT  K 

260  PRINT  PRINT- [2  DOWN1ANC0PA  7" 

270  GET  Q«  IF  Q*-"“  THEN  270 

290  IF  Q*»"S"  THEN  RUN 

290  PR INT " 1 2  D0UN10K  -  FINE." 

300  END 

310  PEM  ROUTINE  DI  MESCOLAMENTO 
320  S*-"“ 

330  PEM  MAZZO  INIZI ALE 

340  P**"*A*2*3t4f3«6*7t8f9tD*;tQ*KtA#2*3*4#5*F*7*8#9*D*J*QRK*" 
330  P*-P*+"A42*3*44346«7*849*D4 J*0*K*A42f 34>4f346*74>è49tD4JtQ4>K 

*" 

360  FOR  K»32  TO  1  STEP  -1 
370  R-INT<K*PND<TI))+1 
380  Sf»S*+MID*(P*,R*2  2) 

390  P*»LEFT*<P*. P*7-l )+MID*<P*.R*2+2) 

400  NEXT  K 
410  PETIJPN 


Distribuzione  carte  da  poker 


100  RE*  <**m*»m«**4m****mmm*«*m* 

110  REM  *  DISTRIBUZIONE  CARrE  DA  « 

120  REM  •  POKER  • 

130  p£n  ««••*«****•••••»•«•**«»**«*»«•• 

140  POKE  53781,3  POKE  53780,10 
150  CLR  PR I  NT " CCLERR  K  BLEU J “ 

li50  M*»"7*8*9*D*J#Q*KfP#7«9*9*04  T*Q*K*A«» 

170  M*-M*»"7*8*9«)*JtQ1>KfA*?A849*D*J4Q*K4>A*" 

100  PRINT  POR  K-l  TO  5 

190  »EN  NUMERO  DISPARI  CASUALE  FRA  I  E  M$/2 
200  »«2*INT(lEN<m*)*pnd< 1 )/2+l )-l 
210  REM  E3TRP2I0NE  CARTA  E  SEME 
220  C«-MIDf<ri*,R,  1) 

230  SJ-M I  DB  I Mi  R+ 1 , 1) 

240  REM  ELIMINAZIONE  CARTA  ESTRATTA  DAL  MAZZO 
250  IE  R> 1  THEN  T*»LEET*(M* , R-l)  GOTO  270 
280  t  %m "  " 

270  M*-Tf*MID»<N*,P+2) 

280  IP  S*-"*"  OR  S*»'*"  TNEN  PRINT" CROSSO:" 

290  IE  S*»"*"  OR  SI*  ♦"  THEN  PR I NT " [NERO  1" , 

300  PRINTCBS»" 

310  NEXT  K 

320  PRINT  PR INT"  [ DOWN1 C BLEU 1  ANCORA 
330  OET  Q*  IP  Qf«"“  THEN  330 

340  IP  ORO  S"  THEN  400 

350  IP  LEN("*)>3  THEN  390 

380  PRINT 'CDOUNIUN  ATTIMO  CHE  RIMESCOLO  IL  MAZZO 
370  POR  J»1  TO  1000  NEXT  J 
380  RiJN 

390  IE  Q*«'S"  THEN  180 
400  PR INT " [ DOUN ]OK  -  FINE." 
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Matematica  I 


Trasformazione  di  un  numero 
in  altro  sistema  di  numerazione 


100  REM  **»##***»****»♦♦***», **»t*»'»*'***t**»**»* 

110  REM  *  TRASFORMRZ I ONE  DI  UN  NUMERO  DECIMFtLE  * 

120  REM  •  AD  UNR  BASE  OUALSIRSI  CON  l  INR  * 

130  REM  »  SUBROUT INE  DI  UNR  SOLR  PI OR  * 

140  REM  •**»t»»»4M****»*4»t«*****»v**i *4*»*»»**» 

130  CLR  :PRINT"CCLERRHBLEUI" 

160  POKE  33281,3  POKE  33280,10 

170  PR I NT " t DOWN 1 DRMM I  UN  NUMERO  DECIMALE  “ 

180  Ai" "0 1 23436789ABCDEF  " 

190  INPUT  “[ DOWN IN  -";N 

200  INPUT  ■[ DONNI  IN  BURLE  BRSE  LO  VUOI  TRASFORMARE"  ;  BZ 
210  1F  BX<0  OR  BK>16  THFN  200 
220  Ri-LEFTiffli.BK) 

230  OOSUB  290 

240  PRI NT "[DOWN TESSO  EOUIVALE  fl  ""Ni 
230  PRINT"[DOWN]RNCORR  ?" 

260  OET  P»IF  0*«""  THEN  260 
270  IF  0*-"S"  THEN  170 
280  END 

290  REM  - 

300  REM  ROUTINE  DI  TRRSF ORMRZ J ONE 

310  REM  - 

320  IF  N  THEN  A"INT<N/BJO  :N*"MIDÌ<  A*, 14N-R4BX, 1 >+N* : N"R : OOT 
0  320 

330  RETURN 


Tabella  numeri  primi 


.00  PEM  f**MM**MM****M»*f***44**M 

j  j 0  PEPI  «ELABORAZIONE  DELLA  TABELLA* 

120  REM  *  DEI  NUMERI  PRIMI  * 

130  RE11  **«*****»♦**♦♦*♦•♦**♦*«♦♦?♦♦♦♦* 

140  POKE  33281.3  POKE  53280.10 
1^0  rLP  PRINT" CCLEAP] 1 8LEU] " 

lf,0  PRINT " DI MM I  PINO  A  QUALE  CIFRA  DEVO  CERrAPE" 

170  INPUT  "CDOUNIN  •  ",N 

1«0  D*.3 

IRCI  DIM  A'N) 

Z00  pnP  K»1  TO  N  RfK)»l  NEXT  K 
210  POP  K-2  TO  N 
220  IP  ROOCD  THEN  250 
230  PRINTK, 

240  POR  J-K  TO  N  STEP  K  H<J'l*0  NEXT  J 
250  NEXT  K 

260  PRINT  PRINT" 1  DOWN] ANCORA  2" 

270  GET  Q*  IF  0*-""  THEN  770 

280  IP  0*«"S"  THEN  130 

290  PRINT-CDOUNJOK  -  FINE  LAVORO" 


Scomposizione  in  fattori  primi 

100  REM  *****♦*♦***♦♦♦*****♦*«♦♦«****•* 

110  PEM  a  SCOMPOSIZIONE  DI  UN  NUMERO  « 
120  PEM  •  IN  FATTORI  PRIMI  a 

130  PEM  M***************************** 

140  POKE  33201.3  POKE  33200.10 
130  CLP  PRINT" [ OLEARI CBLEUI " 

160  INPUT  " [ DOUNIBATT I  UN  NUMERO" :N 
170  PRINT 
180  K«2  Z-3 
190  A-N/K 

200  IF  A-INT(A)  THEN  230 
210  K-KP14  SGN(K-2) 

220  IF  Z-3  AND  KOSQPCN+l )  THEN  2*0 

230  IF  Z-2  AND  K>SQR(N+1)  THEN  300 

240  OOTO  190 
230  PRINTKJ 

260  IF  K>N  THEN  PRINT  GOTO  160 

270  N-A  2-2 

280  GOTO  100 

290  PRINTN  OOTO  310 

380  PRINTN 

310  PRINT-I3  DOWN] ANCORA  ?• 

320  GET  Q*  IF  Q*-""  THFN  320 
330  IF  0**"S"  THEN  130 


UH)  KOI  I1M  l\  BASIC  l'I.k  II  ( OMMODORK  64 
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Trasformazione  da  decimale  m  frazione 


100  rem  *••**•*****•**•»**•***••••»«*«• 

110  REM  •  TRASFORMAZIONE  DI  UN  NUMERO  f 
120  REM  *  DECIMALE  IN  FRAZIONE  • 

130  REM  •*•*•***••*•**•***•««********«• 

140  POKE  33201-3  POKE  33280.10 
130  CLR  PRINT " TCLEAR] [ BL EU ] “ 

160  REM  BATTERE  LA  VIRGOLA  CON  UN  PUNTO  1 
170  INPUT  "BATTI  UN  NUMERO  CON  LA  VIROOLA",N 
100  K-K+l  T-N4K 

190  IF  T-INT<TX.  000001  THEN  230 

200  IF  K>300  THEN  220 

210  GOTO  180 

220  D-l  GOTO  240 

230  N-NRK  D-K 

240  PRINT " C2  D0UN1ESS0  EQUIVALE  A  "NV"D 
230  PRINT" C2  DOWN] ANCORA 
260  GET  0*  IF  0*»"”  THEN  260 
270  IF  0f»”3“  THEN  RUN 


Eliminazione  cifre  decimali 


100  rem  •*•«*»«••««•**«*»«*•*•*•**«**•• 

110  REM  »  ELIMINAZIONE  CIFRE  DECIMALI  • 

120  REM  •  SUPERFLUE  • 

130  REM  «««tR*****»*»»*******»****» 

140  POKE  33281,3  POKE  53288,10 
130  CLR  PR I  NT " C  CLE AR  H  BLEU ] ■ 

160  REM  BATTERE  LA  VIROOLA  CON  UN  PIJNTO  ' 
170  PRINT "BATTI  UN  NUMERO  CON  DIVERSE  CIFRE" 
180  PRINT" DEC I MALI " 

190  INPUT  *'C2  DOWN ] N  ■  ";N 

200  PR I NT " f DOWN ] Q1.IANT E  CIFRE  DECIMALI  VUOI" 

210  INPUT  " [ DOWN] CONSERVARE"  1  E'/. 

220  E-10TEX 

230  N-INTCNRE+.3VE 

240  PRINT" [ DOWNIESSO  DIVIENE  ■  "N 

230  PRINT"  12  DOWN] ANCORA  ->" 

260  GET  Q*  IF  0*»““  THEN  260 
270  IF  0*-"S“  THEN  RUN 


matematica^ 
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Ricerca  numeri  perfetti 


110  REM  *  RICERCA  DEI  NUMERI  PERFETTI  » 

120  REM  *  CIOÈ'  QUELLI  CHE  ^ONO  UGUALI  * 

130  REM  *  ALLA  SOMMA  DEI  PROPRI  DIVISORI  * 

140  REM  t  PER  ESEMPIO  :  6-3+2+1  • 

130  REM  *  DA  UNA  ROUTINE  DI  0.  DE  MARCHI  * 

160  REM  ***t*******»f****»********#»*li*W** 

170  POKE  33281,3  POKE  53200,10 
100  CLR  PR I  NT " C  CLEAR 1 1 BLEU I” 

190  PRINT-  FISSA  IL  LIMITE  MASSIMO  ENTRO  IL  QUALE" 
200  INPUT  "DEVO  CERCARE  I  NUMERI  PERFETTI", L 
210  L“INT (L) :N“2 
220N-N*2IF  N>L  THEN  300 
230  T-CDV-2 

240  IF  INT(N/DV)*DV-N  THEN  T-T+DV 
230  DV-DV+1 

260  IF  DVCN  THEN  240 
270  PRINT"[DOWN:N  «"N 

280  IF  T-N  THEN  PRINT  PRINT  N“  E'  PERFETTO." 

290  0OTO  220 

300  PR I NT “[ DOWN I ANCORA  7" 

310  OET  OS  '■  IF  Qf»"*  THEN  310 
320  IF  Q*-"S"  THEN  RUN 
330  PRINT " [ D0WN10K  -  FINE. " 


Divisione  con  numero  illimitato  di  decimali 


tee  rem  a««*M9«*»«****««**»f**«*»*y****4****»***> 

110  REM  *  DIVISIONE  FRA  DUE  NUMERI  CON  UNA  * 
120  REM  •  QUANTITÀ'  ILLIMITATA  DI  CIFRE  * 

130  REM  «  DECIMALI  * 

140  REM  *  DA  UNA  ROUTINE  DI  DE  SIMONE  * 

150  REM  MM«t«f«***M*«**»****M*««*«**«»«»*«««* 
160  CLR  :  PR INT"  [CLEAR  KBLEUI" 

170  POKE  33281, 3P0KE  33280,10 
180  I*>UT  "NUMERATORE"  JN7. 

190  IW»UT  “CDOUIN  IDE  NOMINATORE  •MIX 
*00  PRINT  ■  PRINTNXVDX"*"  ; 

210  D1-INT<NX/DX> 

220  R*“8TRB(D1 >♦“, " :PRINT  Rf; 

230  R-<NX-D1*DX>*I0 

240  IF  R<DX  THEN  PR1NT"0";  :R*R*10:OOTO  240 
»0  0-lNT<R/DX) 

*60  PRINTRI0HT*<8TR*(Q), 1); 

270  R»<R-Q*DX)*10 
288  GOTO  240 
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100  KOI 'TI  Ni  li  l\  BASIC  IM.k  11.  COMMODORE  64 


Numeri  in  forma  italiana 


100  REM  •••*•»«»*«*«*«••«««•**•*•*•#*«< 

110  REM  •  TRASFORMAZIONE  DI  UN  NUMERO  • 

120  REM  *  DALLA  FORMA  ANGLOSASSONE  IN  • 

130  REM  •  QUELLA  ITALIANA  • 

140  REM  ****4«***M*4******»M**M**«M 

130  POFE  33291,3  POKE  33280.10 
160  CLR  PRINT" C OLEARI [ BLEU 3 " 

170  INPUT  "[DOWN] BATTI  UN  NUMERO" , N 
180  OOSUB  240 

190  print''cdoun:corrisponde  a  -"n* 

200  print"cdown:ancora  •»* 

210  OET  Q*  IF  Q*-''"  THEN  210 
220  IF  Q*«"S"  THEN  170 
230  END 

240  REM  ROUTINE  DI  TRASFORMAZIONE 
230  N*«STR*CN) 

260  NI»-"'1 
270  N 1 »LEN<  NI > 

280  ND-0 

290  FOR  NN-1  TO  NI 
300  N2I«MIDICNI, NN,  1 > 

310  IF  N2I*“ . "  OR  N2*«"E“  THEN  340 

320  NEXT 

330  OOTO  380 

340  IF  N2I»"."  THEN  N2*-'',“ 

330  NlI-N2i+RI0HTI<NI ,N1-NN> 

360  NI«LEFT$CN»,NN-1 ) 

370  ND-Nl-NNM 

380  IF  Nt«"  "  OR  NI-"-"  THEN  Nf«NI*'0“ 
390  Nl-LEN(NI) 

400  IF  NK3  THEN  490 
410  Nl-Nl-3 

420  IF  NI >4  THEN  410 

430  N2I-NI 

440  NI«LEFT$<NI.N1 ) 

430  N1-N1M 

460  FOR  Nl-Nl  TO  LENCN2»)  STEP  3 
470  N*-N*4".“+MIDS<N2*,N1,3> 

480  NEXT 
490  NI«NI*N1I 
300  RETURN 


MATEMATICA  I 
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Prodotto  fra  polinomi 

(00  REM  ***#**#****»**»»>****'f***«>*f ******»>******* 

110  REM  *  PRODOTTO  FRA  DUE  POLINOMI  * 

120  REM  •♦••Hi****'»******'************************* 

30  CLP  PRINT"  CCLFARHBLEU)" 

140  POKE  53281,3  POKE  53280.10 

130  INPUT  "OPRDO  DEL  PRIMO  POLINOMIO" ;Of I ) 

160  INPUT  " C DOWNIORADO  DEL  8EC0ND0  POLINOMIO" ,0<2> 

170  0-0(1)  IF  G(2)‘>G(  1  )  THEN  G«G(?) 

180  DIM  8(2-0), P(G(l)+0(2>+l) 

190  REM  -  INGRESSO  COEFFICIENTI  - 

200  FOP  K-l  TO  2 

210  PR I NT " I DOWN ] BHT T I  I  COEFFICIENTI  DEL"K"*  POLINOMIO" 

220  PRI NT "SEC ONDO  LE  POTENZE  DECRESCENTI : “ 

230  PRI NT 

240  FOP  J*0  TO  OLIO 

2M0  PRINT  PRINTJ+1 ; : INPUT  "*  COEFF . ■  " , Af  K- J ) 

260  NEXT  T ,  K 
270  0OSUB  420 

280  PRINT  "ICLERRI  IL  PRODOTTO  E'  UN  POLINOMIO  DI  "G(  1  )«-G<2>  "*  ORA 
DO" 

290  PRINT " t DOWN] I  COEFFICIENTI,  ORDINATI  SECONDO  LE" 

300  PPINT"POTENZE  DECRESCENTI-  SONO  : 

310  PRINT 

320  FOP  K-0  TO  G( 1 )+0(2) 

330  N-P(K) : OOSUB  510 

340  IF  D-l  THEN  PRINT"  "N-  GOTO  360 
350  PRINT"  -Nrti 
360  NEKT  K 

370  PR I NT "C DOWN I ANCORA  7" 

380  OET  0*  IF  Q*»”"  THEN  380 
390  IF  Q$-"S"  THEN  RUN 

400  PR I NT “ t DOWN 30K  -  FINE." 

410  END 

420  REM  - 

430  REM  CALCOLO  DEI  COEFFICIENTI 

440  REM  - 

450  FOR  K-«  TO  0(1) 

460  FOR  J-0  TO  0(2) 

470  P-R< 1,K)*A(2, J) 

480  P(K+J)=P(K+J)+P 
490  NEXT  J-K 
500  RETURN 

310  PEM  - 

320  REM  TRASFORMAZIONE  IN  FRAZIONE 

330  Rem  - 

340  H-0 
350  H-H+l 

360  T-NRH  IF  T-INT(TX. 000001  THEN  60A 
3Z0  IF  HC100  THEN  560 
580  D-l  N-INT(N*100+.5)ZI00 
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ioo  routini:  in  basic  pur  il  Commodore 
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590  RETURN 
600  N«N*H  D-H 
610  RETURN 


Ricerca  del  Pi  greco 


100  F'EM  •*«*******«»«***•«*•*«•»*««»*«• 

110  REM  *  CALCOLO  DEL  PI  GRECO  CON  • 

120  REM  *  METODO  RANDOMI CO  * 

130  REM  *«*#**•«******«»•»•»«*•»•««•«»* 

140  POKE  53281,3  POKE  53280,10 
150  CLR  PRINT" CCLEAR] [ BLEU] “ 

160  INPUT  "QUANTI  LANCI", N 
178  PRINT 
180  K=K+ 1 
190  y.RNDCTI ) 

200  V»RNDCTI) 

210  D«SQP(X*y+V*V) 

220  IF  DOl  THEN  S«S+1 
230  P*4*S/K 

240  REM  STAMPA  OONI  20  LANCI 

250  IE  K220-INTCK/20)  THEN  PR I NTK"  LANCI  -  [PI]  *"P 
260  IF  K-N  THEN  280 
270  DOTO  100 

280  PRINT"  12  DOWN} ANCORA 
290  GET  Q«  IF  0*«""  THEN  290 
300  IF  Q#«"S"  THEN  PUN 
310  PRINT" C2  D0WN10K  -  FINE." 


Restituzione  prestiti 


100  REM  ******4*f******44***44****f4f»4*t 

110  REM  *  CALCOLO  RESTITUZIONE  PRESTITO  * 

120  REM  «  CON  SVILUPPO  PAGAMENTI  « 

130  REM  *4^*»«»W»*M««***«»*****»******« 

140  CLP  : PR I  NT " [ CLEAR ] [ BLEU  T M 
150  POKE  53281.3  POKE  53280, 10 
160  BL*-H 

170  INPUT  11  [3  DOWN] AMMONTARE  DEL  PRESTITO  ";A 
180  GOSUB  730 

190  INPUT  " [DOWN IT ASSO  D' INTERESSE" , P 

280  INPUT  "£ DOWN] DURATA  DEL  PRESTITO  CIN  MESI)  ":N 

210  R-ABS(R)  N-INTCN)  H-R/1200  PRINT 

220  W-(I+M)W 

230  P«CA*M*WV<W-1> 

240  P-INTCP+.9999) 


£2  PRINT" [OLEARI  12  DOWN 0 COSA  SCEOLI  ?" 
070  PRINT'CDOWNl  1  -  L ' ANAL I S I  MENSILE' 
Ìoa  PRINT'  2  -  CAMBIARE  LA  RATA  MENSILE" 
PRINT'  3  -  UN  ALTRO  CALCOt  0" 

PRINT'  4  -  FINE" 

5Ì0  GE T  QS-IF  0*-“ 

320  Q*VAL(Q*> 

030  IF  0<I  OR  G>4  THEN 
340  IF  0-4  THEN  END 
550  OH  0  GOTO  390,370, 160 
360  OOTO  250 

370  INPUT  "IDOWNJRATA  MENSILE  “;P 

-  250 

400  00  I  O  430 
650 

RIMANENZA 


THEN  310 


310 


380  GOTO 
390  OOSUB 
400  OOSUB 
410  PRINT “MESE 
420  RETURN 
430  B-ATT-0TP-0  L-0:R*-“" 
440  FOR  >1  TO  N* 

450  T=M*B 
460  T-INT (T-*-. 5> 

470  IF  J-N  THEN  P-B+T 
480  TP*TP-*-P  B“B-P+T  ;  TT-TT+T 


INTER.MENS.  INT. TOT ,  ‘ 


490  if  R*-"T"  THEN  580 
500  W-B  OOSUB  680  B*-S* 

510  W-T  OOSUB  680  T*-S* 

520  W-TT: OOSUB  680  : TT*-S* 

530  PRINTJTABC5)B*T$TT* 

540L-L+1  IF  LC16  THEN  580 

550  PRINT'IDOWNDT  PER  I  TOTALI  0  UN  TASTO  PER  CONTINUARE' 
560  OET  P*  IF  R*-“*  THEN  560 
570  L-0  OOSUB  400 
580  NEXTJ 

590  PR I NT *C DOWN] ULTI MA  RATA  "  ;  INTCP*. 5) 

600  PR I NT “I DOWN  1  TOTALE  RATE  " ,  INTCTP-f . 5> 

610  PRINT'CDOWNILA  RATA  MENSILE  ERA  ",FP 
620  PR 1 NT “I DOWN 1 PREMI  UN  TASTO  PER  CONTINUARE' 

630  OET  R*  IF  R*-““  THEN  630 
640  P-FPOOTO  250 

650  PRINT'CCLEAR JLIRE'A"  X'N"  MESI  AL'R"  YS 

660  PRINT 

670  RETURN 

680  W=IIIT<H4.5> 

690  D»-STR*(W) 

700  K-LEN(D*)-1 

710  S$-LEFT»<BL«,  10HO+D* 

?20  RETURN 
730  R*ft]RS<H> 

740  IF  A< 1000000008  THEN  RETURN 
750  PR I NT “C DOWN 3 IMPORTO  TROPPO  ALTO" 

760  A«0  RETURN 
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100  ROl TINK  IN  BASIC  PER  11.  COMMODORE 


Risparmi  a  frutto 

100  rem  *********»••»****«••••**••*••*»«*«•• 

110  REM  •  DEPOSITI  FRUTTIFERI  * 

120  REM  *  E  CALCOLI  RFLRTIVI  * 

130  REM  ******»***m*M****M***«*«W**M«» 

140  CLR  ; PRINT" CCLERR] CBLFU]" 

130  POKE  33281, 3  POKE  53280,10 
160  REM  I N 1 2 1 AL I ZZRZ IONI 

170  DEF  FNA(X)-I/<100*K) 

1B0  DEF  FNB<X)«CI+FNRCX))t'-<N4K> 

190  DEF  FNC<X)»Cl-cFNRCX))t<NWO 
200  DEF  FNDCX)-INT<X*100+.  3)7100 
210  DEF  FNECX)«INTCX*10+. 3)710 
220  PRINTTABC 13)"RISPRRMI  A  FRUTTO" 

230  PRINT"CDOWN] 1  -  CALC . CAP  I  TALE  FUTURO" 

240  PRINT" CD0UN12  -  CALC. CAPITALE  DA  DEPOSITARE" 

230  PRINT"CD0WNI3  -  CALC. TASSO  D' INTERESSE 
260  PRINT"ID0WNI4  -  CALC. PERIODO  NECESS. " 

270  PRINT“CDGWN]5  -  FINE" 

280  PRINT"CDGWN]  COSA  SCEGLI 

290  OET  I $ ■  IF  I*<“1“  OR  I*>"3"  THEN  290 

300  G-VALCI*) 

310  IF  0-5  THEN  END 

320  ÙN  0  GOSUB  440,500,360,630 

330  GOTO  140 

340  PRINTTABC  12) "  12  DOWHKPREMI  UN  TASTO)" 

330  GET  IS : IF  I*-“"  THEN  350 
360  RETURN 

370  REM  CALCOLO  PERIODICITÀ' 

380  Pf-" PER IODI" 

390  IF  K-l  THEN  P*-"HNNI'‘ 

400  IF  K-360  OR  K-363  THEN  P*-“0I0RNI" 

410  IF  K-4  THEN  Pf-"TRIM£STRI " 

420  IF  K-12  THEN  P*-“MESI" 

4301- RETURN 

440  H*-“ CCLERR] [3  DOMNICRLCOLO  CAPITALE  FUTURO  C3  DOWN] " 

430  QOSUB  740 
460  FV-PV4FNCCX) 

470  PR 1 NT " [ DOWN ] I L  CAP. FUTURO  E'";FNDCFV> 

480  OOSUB  340 
490  RETURN 

380  H*-M  CCLEARK3  DOWN  3  CALCOLO  CAPITALE  DA  DE  PO*  IT  ARE  12  DOWN] 
31  a  OOSUB  740 
320  PV-FV4FMBCX) 

530  PR1NT"CD0WH] IL  CAP. DA  DEPOSITARE  E'";FNDCPV) 

540  GOSUB  340 
550  RETURN 

360  H$-''  CCLERR]  C3  D0WN1CALC0L0  TASSO  D' INTERESSEI3  DOWN!" 

570  GOSUB  740 

380  R-CFV7PV)  t(  17CN4K) ) 

590  I-CA-D4K4100 

600  PRINT"C2  DOWN] IL  TASSO  D'INTERESSE  E' "FNDC I >1  "X" 


610  GOSUB  34*3 
620  RETURN 

g30  H*-"fCLERR]C3  OOWN I CALCOLO  DEL  PERIODO  NECESSARI0I3  D0t#3J" 
640  GOSUB  740 

É?0  h-log(Fv/pwloo(fnr(x>+i> 

660  OOSUB  370 
670  N1-FNE<N/KJ 
630  N=*TNF <  N) 

690  PRINT-C2  DOUNTIL  CAP.  DESIDERATO  SARA'  REALIZZATO" 

700  print“IN"n;p* 

7J0  IF  KOI  THEN  PRINT"  0"NI"  ANNI" 

720  GOSUB  340 
730  RETURN 
740  PRINT  H* 

750  IF  U-2  THEN  780 

760  INPUT  “CAP. DEPOSITATO  “:PV 

770  IF  PVO0  THEN  910 

780  IF  0-1  THEN  810 

790  INPUT  “CAP. DESI  DERATO " , FV 

300  IF  FVO0  THEN  910 

310  IF  0-3  THEN  840 

320  INPUT  “TASSO  D'INTERESSE  -  ;  I 

330  IF  K-0  THEN  910 

340  IF  0-4  THEN  070 

350  INPUT  "NUMERO  DI  ANNI  ”;N 

360  IF  NO0  THEN  910 

370  INPUT  “NUM. DI  VERSAMENTI  OONI  ANNO  M;K 
380  IF  KC-0  THEN  910 
390  K=1HT(K> 

<00  RETURN 

*10  ST12  D0WNHRVS]IL  CAPITALE  NON  PUÒ 'ESSERE  ZERO  0  NEOAT 

<20  FOR  1-1  TO  1000  •  NEXT 
'30  OOTO  740 
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Matematica  II 


Soluzioni  equazioni 


tee  refi  «mmm*«**«*m«m**m**w**»mw **•#*♦** 

110  REM  *  SOLUZIONE  EQUAZIONI  ALGEBRICHE  * 

120  REA  *  (DI  P.  HOWDEN  E  N.  KANTAPIS)  * 

130  REM  *  VIENE  ADOPERATO  L'ALGORITMO  :  * 

140  REM  «  X0»A(N+l>«A<N>-t-2«(P/3-R)*SINH(F<A0>>  * 

130  REM  «  X0“A (  N+ 1  )  «A  (  N  ) -24 ( P/3-R > *S I  NH( F <  A0  >  >  « 

160  REM  •*«*****••*•*•••*••••«•***«»*•*••'«••»*«« 

170  POKE  3328 1,3  POKE  332A0.10 
100  CLP  PRINT"!  CLEAR ] C  BLEU ]  " 

190  PR1 NT "TRASFORMA  L'EQUAZIONE  IN  UN  POLINOMIO" 

200  PR I NT " UOUAOL IATO  A  ZERO  ,  E  BATTILO  COME" 

210  PRINT" UNA  FUNZIONE  NEL  MODO  SEGUENTE 

220  PRINTTAB(7)“CDOWN]1000  DEF  FNA(X)  -  Xf2+3PX-10" 

230  PRINT" C2  DOWN] E  POI  BATTI . RUN  230" 

240  END 

230  DEF  FNACX)«Xt7+28*XT4-480 
260  DEF  FNS (  X  ) “LOG ( X+SQR  <  X*X+ 1  )  ) 

270  P-0 

280  PR I NT ”C CLEAR] BATTI  I  VALORI  PER 

290  INPUT  " [ DOWN]X  (INIZIALE)  »";X 

300  REM  PROVARE  SIA  PER  +1  CHE  PER  -1 

310  INPUT  “CDOWNISEONO  DEL  SINH  (  +  1  0  -1)  -";S 

320  R-0  N-100 

330  D-. 00001 

348  INPUT  "C DOWN ]PRECI SIONE  MRX  <S/N)",Kf 
330  IF  LEFT*(K$,  1  )0“S"  THEN  370 
360  Kl-1  K2-1  INPUT  " [DOWN1PASSO  »",L 

370  Sl-1  PRINT"! CLEAR ] PASS I " T  AB ( 1 0 ) " P " T AB  < 1 7 ) " P " TAB  <  28  > " SOLUZ. 
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300  FOR  K-l  TO  40  PRINT'^ROSfll-CBLEU]";  NEXT  ICPRINT 

390  FOP  !"1  TO  N 

400  F»FNA<X>  H«S*FNS<F) :S2«H 

410  IF  K 1-1  THEN  003UB  540  : IF  Kl-1  THEN  400 

420  IF  S2*Sl>-0  THEN  440 
430  P-P>1  OOTO  450 
440  P-P+l 

430  xl-X+H*?T<P/3-R> 

400  PR1NTTAB(2)I,TAB(10)P;TAB(17)P, THB(?5)X1 
470  IF  ABS<X1-XXD  THEN  PPINT"CDOWN]RESTn  -"FNA(Xl)  :  OOTO 
500 

400  X-Xl'  SI -32:  NEXT  I 

490  PRINT" [2  DOWN ] NON  CONVERGE. “ 

500  PR 1 N  T " C  DOWN ] ANCORA 
510  OET  0*IF  0$»»«  THEN  510 
520  IF  Of-'-S"  THEN  RUN  250 

530  END 

340  IF  K2-1  THEN  K2-0 :  SI -S2  OOTO  560 
530  IF  S14S2C0  THEN  Kl-0  R-P-l  RETIJPN 
560  X-X+K  RETURN 


Fattoriali  e  coefficienti  binomiali 


100  REM  •  •***Mt****t***t**4«»'t«f>Mt***** 

110  REM  *  CALCOLO  DEL  FATTORIALE  DI  UN  * 

120  REM  •  NUMERO  E  DELLE  COMPÌ NAZIONI  » 

130  REM  •  SEMPLICI  DI  N  NUMERI  * 

140  REM  *  DI  CLASSE  K  * 

150  REM  ••*««**••*•••*•****•*«*****4*4*** 

160  POKE  53281. 3  POKE  53280,10 
170  CLR  PRINVCCLEAPHBLEU]" 

100  PRINT" 1  -  CALCOLO  FATTORIALI" 

190  PRINT" C D0WN]2  -  CALCOLO  COEFF.  B I NOM I AL I " 

200  PRINT "t2  DOWN] COSA  SCEOLI  “>  "! 

210  OET  Q* : IF  THEN  210 

220  IF  0*0"  1"  AND  Qf<>"2"  THEN  210 

230  PRINTO* 

240  IF  Q*-"2"  THEN  290 
250  INPUT  "CD0WN3N  »“;N 
260  GOSUB  390 
270  PRINT"CDOWNJN  t  -"F 
280  OOTO  340 
290  INPUT  "C DOWN IN  -”;A 
300  INPUT  " C DOWN ] K  «";B 
310  IF  A<B  THEN  290 
320  OOSUB  470 

330  PRINT "I DOWN]  r  N  iCDOWNH.5  LEFT ]  I  ICD0WNH5  LEFT]  1  K  JCUP 
]  -“CB 

340  PRINT "CZ  DOWN] ANCORA  *>“ 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


350  OET  Q*IF  pf»"“  THEN  350 
360  IF  0*-"S"  THEN  170 
370  PRINT-CPOWNIOK  -  FINE." 

380  END 

390  REM  - 

400  REM  CALCOLO  FATTORIALI 

410  REM  - 

420  K-l  F-l 
430  F-F4K 
440  K-K+l 

450  IF  KON  THEN  430 
460  RETURN 

470  REM  - 

480  REM  CALCOLO  COEFFICIENTI  BINOMI ALI 

490  REM  - 

500  N-A : OOSUB  390  X-F 
510  N-B  OOSUB  390  V-F 
520  N-A-B : OOSUB  390  Z-F 
530  CB«XAV*Z> 

540  RETURN 


Disposizioni  con  ripetizione 

100  REM  **»*M***f*******MM*Mf  *****•«****•*••• 

110  REM  •  SVILUPPO  DELLE  DISPOSIZIONI  CON  * 
120  REM  «  RIPETIZIONE  DI  M  ELEMENTI  DI  CLASSE  K  * 
130  REM  *  CON  N  E  K  AVENTI  VALORE  MAX-5  • 

140  REM  *»*MH»*««**M*«*f ***••••••*•**•••*•**«*•• 

150  CLR  PP I  NT 11  [  CL  EBR 1  [  HLEU3 “ 

160  POKE  53281,3  POKE  53280,10 
170  INPUT  "NUMERO  DEGLI  ELEMENTI  -"IN 
180  DIM  A*(N) 

190  INPUT  "C DONNI CLASSE  -”;K 


200 

FOR 

T-l 

TO 

N  :  A4-A4+CHRX47+T) 

NEXTT 

210 

FOR 

9-1 

TO 

N:  A*<S)-A» 

NEXT  S 

220 

FOR 

A-l 

TO 

LEN<A*< 1 ) ) : 

A  (  1  ) -A  : 

IF 

K-l 

THEN 

270 

230 

FOR 

B-l 

TO 

LEN(A*C2) ) : 

AC2I-B : 

IF 

K-2 

THEN 

270 

240 

FOR 

C-l 

TO 

LEN(Af(3) 1 : 

A(3)-C 

IF 

K-3 

THEN 

270 

250 

FOR 

D-l 

TO 

LEN(H*(4I) : 

A(4)-D 

IF 

K-4 

THEN 

270 

260 

FOR 

E-l 

TO 

LEN<R*<5)>  : 

R(5)-E : 

IF 

K-3 

THEN 

270 

270 

FOR 

R-l 

TO 

K 

280  PRINTMID*(A9(RI,A(R>, 1); 

290  NEXT  R 
300  J-J+l 

310  PRINTSPCO)  "■  DISPOSIZIONE  N.  ”J 


320 

IF 

K-l 

THEN 

NEXT 

A  :  END 

330 

IF 

K-2 

THEN 

NEXT 

B, A :  END 

340 

IF 

K-3 

THEN 

NEXT 

C, B* A :  END 

350 

IF 

K-4 

THEN 

NEXT 

D, C,  B,  A :  END 

360 

IF 

K-3 

THEN 

NEXT 

E, D, C, B>  A  END 
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Calcolo  area  di  un  triangolo  n.  1 

tee  rem  ******************************************* 

110  REM  *  TRI  h  ONOMETPIA  * 

120  REM  *  «REM  DEI  TRIANGOLI  * 

130  REM  *  CON  1.8  FORMULA  DI  EULERO  * 

140  REM  ******************************************* 

150  CLP  :  PRINT"  CCLERPI C  BLEIJ1  " 

160  POPE  53280.10  POKE  53281.3 

170  PRINT"  CALCOLO  DELI/  AREA  DI  UN  TRIANGOLO” 

180  PRINT"  QUALS IRSI.  CONOSCENDO  I  SUOI  TRE  LATI." 

190  INPUT  "[?  DOWN] PRIMO  LATO". A 

200  IF  A<0  THEN  190 

210  INPUT  "  [  DOWN  1SECONIIO  L  ATO"  .  B 

220  1F  BC0  THEN  210 

230  INPUT  " [D0HN1TEP70  LATO'UC 

240  1F  C<0  THEN  230 

250  IF  A>B+C  OR  B>A+C  OR  C'-A+B  THEN  PRINT  "  I  DOWN]  IL  TRIA 

NOOLO  NON  ESISTE  '"GOTO  300 
260  P-(A+B+C)22 
270  D“P*<P-A)*(P-B)*<p-C) 

280  S»SOR'D) 

290  PRINT "IDOWNTl/  AREA  E'"S 

300  PRINT" C DONNI ANCORA  ?" 

310  OET  Q*  IF  0$»“"  THEN  310 
320  IF  Q$-"S“  THEN  RUM 
330  PRINT“CD0WN]0K  -  FINE." 


Calcolo  area  di  un  triangolo  n.  2 

100  REM  ***** ************************************** 

110  REM  *  TPIOONOMETPIA  * 

120  REM  *  RPEA  DEI  TRIANGOLI  * 

130  REM  *  CONOSCENDO  DUE  LATI  E  L'ANGOLO  COMPRESO  * 
140  REM  ********************************* ********** 
150  CLP  PRINT " I CLEAR] I BLEU J " 

160  POKE  53280,10  POKE  53281.3 

170  PRINT  "DAMMI  LA  LUN0HE7.7A  DI  DUE  LATI  E" 

180  PRINT"L'  ANGOLO  FRA  ESSI  COMPRESO." 

190  INPUT  " [2  DOWNIPP IMO  LATO", A 

280  IF  R<0  THEN  190 

810  INPUT  "[ DOWN] SECONDO  LATO1' ,  B 

880  IF  B<0  THEN  210 

830  INPUT  "[DOWN] ANGOLO  <IN  GRADI)"  :C 

840  S«A*B*SIN<C*w/l60>/2 

850  PRINT" [DOWN IL'  ARFA  F'"S 

260  PRINT " C DOWN] ANCORA  3" 

870  OET  Q*  IF  Q*»"“  THEN  270 
280  IF  0*."S"  THFN  RI.IN 

898  PRINT"CDOWN]ClK  -  FINE." 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


Teorema  dei  seni 


100  REM  ***♦***♦♦***•♦*♦  ****f*f*ttv*4*f»»****'M'**** 

110  REH  *  TRIGONOMETRIA  * 

120  REM  »  TEOREMA  DEI  SENI  * 

130  REM  #**♦***♦***♦**#**#*♦♦****♦***♦*'»*'♦#*»»*♦'*♦* 

140  CLR  ' PRINT" [CLEAP I [PLEU1 " 

130  POPE  33281,3  POKF  33200,10 

ISO  PPI NT "DAMMI  IR  MISURA  DEL  LATO  CHF  CONOSCI  " 

170  INPUT  "[DONNI LATO  -",A 

100  PRINT-CD0WN1F  L'  AMPIEZZA  DEL  SUO  ANOOLO  OPPOSTO 
190  INPUT  "  t  DOMN I  ANOCh_  0  (IN  ORADI  >  -";B 
200  PRINT "[2  DONNICOSA  VUOI  CONnsCFRE  " 

210  PRlNTTABf 15) " [  DOWN]  1  -  UN  ALTRO  LATn" 

220  PPINTTRBC 15) " ( DOWN  12  -  UN  ALTRO  ANGOLO" 

230  PP I NT " [ 2  DOWN] SCEGLI 

240  GET  0$ : IF  0*»""  THEN  240 

230  IF  0*0"  1"  AND  0*O"2"  THEN  240 

260  IF  0 #*"2"  THEN  370 

270  REM  - 

280  REM  PRIMO  CASO 

290  REM  - 

380  PR I NT " t CLEAP I PP I Mn  LATO  “"A 

310  PRINT" [DOWN] ANGOLO  OPPOSTO  «"B 

320  INPUT  “C DOWN] SECONDO  ANGOLO  (IN  GRADI)  -",C 

330  D"A*S  I N  (  C*«/ 1 80  )  /S I N  (  B*i»/ 1 80  ) 

340  PRINT"CDOWN] IL  LATO  OPPOSTO  AL  SFCONDO  ANGOLO  HA" 
330  PR1NT"AMPIEZZA"D 
360  GOTO  330 

370  REM  - 

380  REM  SECONDO  CASO 

390  REM  - 

400  PR I NT " [ CLEAR 1 PR I MO  LATO  «"A 
410  PR I NT "[ DOWN 3 ANOOLO  OPPOSTO  -“B 
420  INPUT  "CDOWNI SE CONDO  LATO  «"iD 
430  E»D*SIN<B*ifZ180VA 
440  IF  E-l  THEN  420 
430  S-ATN(E/S0P(-E*E+1)> 

460  T-S*180/ir 

470  PRINT“[DOWN]CI  SONO  DUE  SOLUZIONI 

480  PR I NT " [ DOWN ]  1  -  SF  IL  TPIANOOI  0  E'  ACUTANGOLO" 

490  PRINTTAB(4) "ALLORA  t.'  ANOOLO  CERCATO  E'" 

300  PRINTTAB(4)ABS(T) “  ORADI" 

310  U"90-T : W*90+T 

320  PR I NT “ t DOWN ] 2  -  SE  IL  TRIANGOLO  E'  OTTUSANGOLO" 
330  PRINTTAB(4) "ALLORA  L'  ANGOLO  CERCATO  E' " 

540  PRINTTAB(4)ABS<H)"  GRADI" 

330  REM  - 

388  REM  RICHIESTA  PER  SEGUITARE 

370  REM  - - - 

580  PRINT" t 2  DOWN] ANCORA  ?" 
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590  GET  Q*  IF  0»«""  THEN  W0 
600  IF  D#«"S"  THFN  RUN 
610  PRINT "[ DOWN ]0K  -  FINE." 


Teorema  di  Carnot 


100  PEM  •♦9»****f#**f***.*t**t**#******H**t***»****« 

110  REM  *  TRIGONOMETPIB  * 

120  REM  *  TEOREMA  DI  CAPNAT  * 

130  REM  ***t****»**»***»'f*****t*il'»*fl»***»»**»***t»* 

140  CLP  : PP 1  NT "[C LEAR] [BLEU] " 

150  POKE  53280,10  POKE  13201,3 

160  PRINT"  CALCOLO  DEL  TERZO  LATO  IH  UN  TRIANGOLO" 

170  PRINT"  QUALSIASI  ,  CONOSCENDO  DUE  LATI  E" 

100  PRINT"  L'  ANGOLO  FRA  ESSI  COMPRESO." 

190  INPUT  "C2  DONN] PRIMO  LATO";  A 

200  INPUT  "t DOWN] SECONDO  LATO" , B 

210  INPUT  " t D0WN1L '  ANGOLO  'IN  GPAPI)M,C 

220  D»COSCC*<r/180]*2*H*B 

230  E-CAKAi+CBfBJ-D 

240  IF  E<0  THEN  PRINT"[DOUN]SOLUZI0HE  IMPOSSIBILE. "  GOTO  2 

00 

250  IF  EC. 00001  THEN  PRINT" [DOWN] IL  TERZO  LATO  E'  NULLO. "  0 
OTO  280 
260  F-SQP(E) 

270  PRINT  "[DOWN]  IL  TERZO  LATO  MIS'JRA'F 
280  PRINT  "[DOWN]  ANCOR  A  3" 

290  OET  Q*  IF  Q*-""  THEN  290 
300  IF  B*-"S"  THEN  RUN 

310  PR I NT " C DOWN ] OK  -  FINE." 


Matrici  n,  1 

100  REM  . . . 

110  PEM  •  STAMPA  DI  UNR  MATRICE  • 

120  PEM  •  CON  2  CICLI  FOR-NEXT  • 

130  PEM  •  N. 1  • 

140  REM  «*I*«MI»**««»M**MMM*** 

150  POKE  53201,3  POKE  53290,10 
160  CLR  PRINT" [CLEAR] [ ÌLEO] " 

170  F OR  K-0  TO  9  REM  K-COLONNA 
180  FQR  J«10  TO  15  REM  ,1-RIOA 
190  PRINT  K+J, 

200  NEXT  J 

210  PRINT  REM  NECESSARIO  PER  ANDARE  A  CAPO 
220  NEXT  K 
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100  ROUT1NK  IN  BASIC  PUR  IL  COMMODORI;  64 


Matrici  n.  2 


100  PEM  ***M***M*M**«*««'*****4*M** 

110  PEM  •  STAMPA  DI  UNA  MATRICE  • 

120  PEM  *  CON  2  CICLI  FOP-NFXT  • 

130  PEM  *  N.2  • 

140  REM  ***«****»*******«•**********•»• 

130  POKE  33281,3  POKE  33280-10 
160  CLR  PRINT" CCLEAP  ] ! BLEU] " 

170  PRINT " SCEOL I 
180  INPUT  " C DOWN1RIOH  CI-10V',R 
190  IF  P<1  OR  R>10  THEN  180 

200  INPUT  "[DOWN] COLONNA  C1-10VNC 
210  IF  C<1  OR  C>10  THEN  200 

220  PRINT-CCLEAR]  OK  -  IL  PALLINO  SULLA  RIOA"R,•  E  SULLA" 

230  PR I NT" COLONNA "C"  E'  IN  POSSO! 3  DOWN]" 

240  FOR  J-l  TO  10 
230  PRINTTAB(13>; 

260  FOR  K-l  TO  10 

270  IF  K-C  AND  J-R  THEN  PRINT"  [POSSOUCBLEU]"  ;  OOTO  290 

280  PRINT"#"; 

290  NEXT  K 
300  PRINT 
310  NEXT  J 

320  PRINT" C2  DOWN] ANCORA  ?* 

330  OET  0#  IF  0#-""  THEN  330 
340  IF  0#-"S"  THEN  RUN 


Addizioni  e  sottrazioni  di  matrici 


100  PEM  ****#»*****♦♦♦*  +  **♦♦**♦♦♦♦♦♦*♦***♦♦*♦* 

110  PEM  »  SOMMA  E  S0TTPR7 1 ONE  FRA  PUF  MATPICI  t 

120  PEM  #44***#*#***ff****f**t**»*«i**iM»****f4**t44 

130  CLP  PPINT  "  [OLEARI!  BLF'J]  " 

140  POKE  33280,10  POKE  33281  3 

150  INPUT  "[3  D0HN1QIJALE  ORDINE  TI  INTEPESSA",N 

160  PIM  RCN+l , N+l ) , B(N+ 1 , N+ 1  ) 

170  PRINT "[DOWN] VUOI  ' 

180  PRINTTAB(7)"[D0WN] 1  -  S0MMAPE  DUE  MPTP I r I " 

190  PP 1HTTAB  (7)  "  [  DOWN]  2  -  SOTTRARRE  D' IF  MATRICI" 

200  PRINT"! DOWN] SCEGLI  ■  " 

210  OET  Q*  IF  P*-""  THEN  210 

220  IF  0*0"  1"  AND  0*0 "2“  THEN  210 

230  PRINT" [OLEARIO  K  -  ORA  DAMMI  GLI  ELEMENTI  DELLA" 

240  PPINT"PRIMA  MATRICE  "PPINT 

230  PEM  RIEMPIMENTO  PRIMA  MATRICE 

260  FOP  K-l  TO  N  FOR  J-l  TO  N 

270  PPINT  PRINTJ""  RIGA  E“K"*  COLONNA" ,  : INPUT  A(K,J) 
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280  NEXTJ,K 

290  PPINT  "  [  CLEAP IE  OPR  DAMMI  OLI  ELEMENTI  DELLA  SECONDA"  :  PRINT 
300  REM  RIEMPIMENTO  SECONDO  matrice 
310  POP  K« 1  TO  N  FOR  J-l  TO  N 

320  PRINT  PRINTJ"*  PI  OR  E“K""  COLONNA",  INPUT  B(K,J> 

330  NEXTJ , K 

340  IF  G»*-“l"  THEN  GOSUB  490 
350  IF  C*-"2"  THEN  OOSUB  M?0 

360  REM  - - - 

370  REM  V I SURL I 7ZA7 1 ONE  RISULTATO 

380  REM  - 

390  PRINT" CCLERR 3 ECCO  LR  MRTPICE  PISULTRNTF  : " 

ina  PPTUT 

410  FOP  K-l  TO  N  FOP  J-l  TO  N 
420  PRINT  C(J,K), 

430  NEXT  J  PRINT  NEXT  K 
440  PR I NT “ [ 2  D0WN3RNC0RR  ?" 

450  OET  0»  IF  Q*»""  THEN  45« 

460  IF  Q*-"S"  THEN  RUN 
470  PRINT "CD0MN30K  -  FINE" 

480  END 

490  REM  - 

500  REM  SOMMA  DELLE  MATRICI 

510  REM  - 

520  FOP  K-l  TO  N 
530  FOR  J-l  TO  N 
540  C(K, J)-A(K, J)+B(K, J) 

550  NEXT  J,K 
560  RETURN 

570  REM  - 

580  REM  SOTTRAZIONE  DFLLE  MRTPICI 

590  REM  - 

600  FOP  K-l  TO  N 
610  FOP  J-l  TO  N 
620  C(K, J)-A(K, J)-B(K,J) 

630  NEXT  J , K 
640  RETURN 


Calcolo  del  determinante  di  una  matrice  quadrata  e  de¬ 
terminazione  della  matrice  inversa 


•  00  REM  ♦««♦♦♦«♦♦«m**************************** 

I0B  REM  «  CALCOLO  DEL  DETERMINANTE  DI  UNA  * 
•0S»  REM  *  * 
••0  REM  4  MATRICE  QUADRATA  E  • 
•••  REM  «  « 
••2  REM  *  DETERMINAZIONE  DELLA  NATRICE  INVERSA  * 
'•3  REM  *  « 
*14  REM  *  (DA  mn  PROGRAMMA  DI  H.  HAUTI  * 
•20  REM  ***«*«f«*««M«4«4*f**«**«*jM4*<MM««**** 
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100  ROUTINI-:  IN  BASIC  PER  IL  COMMODORE  64 


1 30  CLR  PRINT"Ci:lEhR][RÙSSOI" 

140  POKE  53280.10  PONE  53281.3 

150  PRINT"  INVERSIONE  III  UNA  MATRICE  QUADRATA" 

160  FOP  K=  1  TO  40  PRINT"CROSA]«!BLEUr ,  NEXT 
170  INPUT  "13  DOWN! QUALE  ORDINE  TI  INTERESSA" j N 
180  DIM  RA(N . N ) 

130  PR [NT" [OLEARIO  K  -  ORA  DAMMI  01. 1  ELEMENTI  DELLA" 

200  PRINT-MATRICE  "PRINT 
210  REM  INGRESSO  DATI 
215  Nl-N-1 

220  POR  1=0  TO  NI  POR  J=0  TO  NI 

230  PRINT  PRINT  1  +  1"*  RIGA  E  "  J  >  1  "  *  COLONNA"  i  INPUT  AAU.J) 

240  NEXTJ, I 

250  REM  - 

252  REM  VISUALIZZAZIONE  MATRICE 

254  REM  - - - 

260  PRINT"[LLEAR)" 

270  POR  1=0  TO  MI  POR  J=0  TO  NI 

280  PRINT  HH<I,J>, 

230  NEXT  J  PRINT  NEXT  I 
300  PRINT"  12  DOWN  IVA  BENE  ?“ 

310  GET  Q*  IF  0*=""  THEN  318 
320  IF  0*=TS"  THEN  350 

330  PRINT" [2  DOWN] ALL ORA  RIDAMMI  I  DATI  CORRETTI" 

340  FOP  K=1  TO  2000  NEXT  GOTO  210 

350  REM  - 

360  REM  INIZIO  Cai  COLO 

370  REM  - 

380  DE=1 

330  FOR  K=0  TO  NI 
400  PV=ÀM‘..K.K>  IK*K  IK»K 
410  PH=ABSi  P'vO 
420  POR  I =k  Tu  NI 
430  POR  -J=K  TO  NI 

440  IF  ABS'.AAC  I ,  ì>  <>PA  THEN  PV=AA<I.J)  PB=flBS<PV)  IK*I  :  JK=J 

450  NEXT  J. I 

460  PCtlO=JK  PL'IO  =  IF 

47Ó  IF  1KOK  THFN  DE*- DE 

430  IF  IK  :  k  THFN  DE  =  -DF 

480  DE=DE4PV 

500  IF  DF<>0  THEN  5  dò 

510  PRINT"! DOWN] IL  DETERMINANTE  F'  NULLO" 

520  PRINT"!  DOWN  INI  IN  CE'  MATRICE  INVERSA"  GOTO  50W0 
530  IF  IK=K  THFN  530 

540  FOR  1=0  TO  NI 

550  TT=AA' I K . I >  AH! IK. I >*AA(K, I >  RACK. I >»TT 
580  NEXT  I 

580  IF  JK=K  THFN  630 

600  F'3R  1=0  TO  NI 

610  TT=AA(  I ,  JK  )  AAU  .  JK  >=AA<  I  ,K>  AA<  1  ,IO  =  TT 
620  NEXT  I 

630  FOR  1=0  TO  NI  CSC  I >=AA< I .IO  BACI, K)-0  NEXT  I 
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'4Ù  Cb‘K>=0  AA ■  K ,  K  =  1 

?50  FOR  1=0  TO  NI  AA<K,  I>*AA<K, I VPV  NEXT  I 
é60  POP  J=0  TO  NI 
670  IF  J=K  THEN  óRy 

'80  FOR  1=0  TO  NI  AA<  J,  I  >=HA<J  .  1  )-C$<  J>*AA<K,  I  )  NEXT  I 
690  NEXT  J 

700  NEXT  K 

710  FOP  I=N1  TO  0  STEP  -1 

720  1K=PC< I > 

730  1F  IK=»I  THEN  800 
740  FOP  J=0  TO  NI 

750  TT=FtFKI  ■  J  )  HA'.  I ,  l;=AA<  1K ,  1)  AA<  IK ,  J)*TT 

760  NEXT  J 

800  NEXT  I 

810  FOR  J=N1  TO  0  STEP  -1 

820  Jk=PUJ> 

830  IF  JK= J  THEN  900 
640  FOR  1=0  TO  NI 

850  TT=AA<  I  •  J)  AA'.  I,  1  I,  JK  >  AA<  I  ,  JIO*TT 
060  NEXT  I 
900  NEXT  J 

1000  REM  - 

1010  REM  STAMPA  RISULTATI 

1020  REM  - 

1022  PPINT'UDOWNIIL  DETERMINANTE  E'  "DE 
1025  PRINT "[DOWN  ILA  MATRICE  INVERSA  E'  “SPRINT 
1030  FOR  1=0  TO  NI  FOR  J*0  TO  NI 
1040  PRINT  AA<  I  .  r  i  . 

1050  NEXT J  PRINT  NEXTI 

5000  REM  - 

5010  REM  DOMANDA  DI  CONTINUAZIONE 

5030  REM  - 

5030  PRINT" [DOWN  I ANCORA  7" 

5040  OET  OS  IF  ò*="“  THEN  5040 

5050  IF  Q*="S"  THEN  RUN 

5060  PRINT'-IDùWmoK  -  FINE  LAVORO." 


Calcolo  di  una  matrice  quadrata 


100  REM 
110  REM 
120  REM 
130  REM 
160  REM 
1?8  REM 
188  REM 
180  CLR 
200  DIM 
210  POKE 


«*****••««««***«*«*«******»•••*»**•* 

*  * 

*  CALCOLO  DI  UNA  MATRICE  QUADRATA  * 

«  • 

*  <DA  UN  PROGRAMMA  DI  DAVIDE  ROSSI)  * 

*  * 
***«*»•****«***««*««»*****•*****•**»» 

PR I  NT  '•  t  CLE  AR  )  C  ROSSO  I  " 

VO000) 

33288,10  POKE  53281,3 
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100  KOI  I  INI  IN  BASIC  PER  II.  COMMODORE  64 


220  RRINT"  CALCOLO  DETERMINANTI  DI  ORDINE  N” 

230  FOR  (Ol  TO  40  PRINT" [ROSAI  •!  BLEUI” 1  NEXT  K 
240  INPUT  "C3  DOWNJùURLF  ORDINE  TI  INTERESSA”, N 

250  REM  - 

260  REM  INIZIAI IZZAZIONE 

270  REM  — - - 

280  P<  1 2 ■—  1 

296  FOR  W=2  TO  N  P<W ;*P(U-t >  +  fU- 1 )  T2  : NEXT  W 

300  PRINF'CCLEhRIO  K  -  ORA  DAMMI  Gt.I  ELEMENTI  DELLA” 

310  PRINT''MATRICE  =  "  PRINT 

320  REM  - 

330  REM  INGRESSO  DATI 

340  REM  - 

350  FOR  W=*l  TO  N  FOR  J-l  TO  N 

360  PRINT  PRINTJ””  COLONNA  E”W"*  RIGA"; : INPUT  V(W*N-N+J+P(N) ) 
370  NEXT  J,U 

330  REM  - 

390  REM  VISUALIZZAZIONE  MATRICE 

400  REM  - 

410  PRINT-CCLEARI" 

420  FOR  W«1  TO  N : FOR  J”1  TO  N 

430  PRINT  V<W*N-N+T+P(N)), 

440  NEXT  J  PRINT  NEXT  U 
450  PRINT‘”C2  DOWNIVA  BENE  ?" 

460  GÈ T  Q*  IF  Q $=""  THEN  460 
470  IF  G-I=*“S"  THEN  500 

480  PRINT" [2  DOWNIALI.ORA  R I DFtMM I  I  DATI  CORRETTI” 

490  FOR  K-I  TO  2000  NEXT  GOTO  330 

580  REM  - 

510  REM  INIZIO  CALCOLO 

520  REM  - 


650 

IF 

N=  1 

THEN 

D ( N  •  =V ( 0 )  GOTO 

1130 

660 

IF 

N=*2 

THEN 

GOSIJB  1050  GOTO 

1130 

670 

IF 

N-3 

THEN 

OOSUB  1070  T.OTO 

1130 

680 

FOR 

K=  1 

TO 

N  C<K.'=K  NEXT  K 

698  V1*N 
7O0  RI=1 

710  C0=V1-C<V1 >+I 
720  CCVl )*C(V1 »-l 
730  ELCV1  '=V(Cù+P'.vn  » 

740  IF  EL  <  VI >=0  THEN  770 

750  OOSIJB  870 

760  EL<  VI >=EL< VI >4EL(0> 

770  V1=VI-1 

780  IF  VI >3  THEN  710 

790  OOSUB  1070 
800  V1*V1+1 

810  D(Vl)  =  D(Vn+EL<VI)*D(Vt-l> 

820  D(V1-1)=>0 

830  IF  C(V1)  THEN  710 

840  IF  VI THEN  1130 

850  C<V1>=»V1 

360  GOTO  800 
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matematica  II 


070  REM  - 

380  SEM  SEGNI  COMPLEMENTI  ALGEBRICI 

390  SEM  - 

900  C10)*O 

910  E OR  K»1  TO  VI  FOP  S»1  TO  VI 
920  IF  K=RI  THEN  970 
930  IE  S=CO  THEN  960 
940  C<0J»C<0'+1 

950  V<C<0>+P<V1-1))=V'.K*V1-V1+S+P(V1>  > 

960  NEXT  S 
970  NEXT  K 
980  EL<0>=1 

990  IE  <RI+C0)/2"INT  (  ( RI +C0>/2)  THEN  1010 
1000  EL(0)“-1 
1010  RETURN 

1020  SEM  - 

1030  REM  CALCOLO  MATRICI  MINIME 

1040  SEM  - - - - — 

1050  D<2)=V< 1 >*V( 4)-V(2>*V<3> 

1060  RETURN 

1070  IK3)=.V<5  )+V'  9>*V(13>-V(5>*V' 10>*Va7)4.V<6)*VU0>*Vai) 
1080  D(3)=D<.3>-V<6)*V<8>*V<'  13>+V<7;*V<8>*v<l?>-V<7)*V<9:>*V<  11) 
1090  RETURN 

1100  REM  - 

1110  REM  STAMPA  RISULTATO 

1120  REM  - 

1130  PRINT" I DONNI  IL  DETERMINANTE  E'  »“D<N) 

1140  PRINT" CDOWNJ ANCORA  ?" 

1 150  GET  :  OS  IE  0$=""  THEN  1150 

1160  IF  Q**"S“  THEN  RUN 

1170  PRINr'CDOWNIOK  -  FINE  LAVORO." 


Sistemi  di  equazioni 


100  REM  «••«*i|l*»**<t<'»«**«'1i«*****«i****»«*****«*****i** 

110  REM  *  SOLUZIONE  SISTEMI  LINEARI  * 

120  REM  *  CON  IL  MFTOPO  PI  BANHCH1EWJCZ  * 

130  REM  M»iM***t«**iM**iM**M***********M*****M* 

140  CLP  : PRINT"[CLEAPir  BLFUI" 

150  POKE  53288. 10 : POKE  53281.3 
160  INPUT  "NUMERO  DELLE  EQUAZIONI " 1 N 
170  DIM  AfN,N),B<N,N),C<N,N),X<N-l> 

180  REM  - 

190  REM  BATTERF  I  COEFFICIENTI  ORDINATI 

200  REM  FACENDO  IN  MODO  r HE  IL  PRIMO  COEFFICIENTE 

210  REM  DELLA  PRIMA  EQUAZIONE  SIA  DIVERSO  DA  ZERO 

220  REM  I  TERMINI  NOTI  VANNO  TRASPORTATI  NEL 

«O  REM  SECONDO  MEMBRO 

240  REM  - 


98 


100  ROUTINE  IN  BASIC  PER  IL  COMMODORE 


230  FOR  R-0  TO  N-l 

260  PR I  NT “ I  DOWN JEQUfiZ IONE  N. "R+l 

270  FOR  S-0  TO  N 

280  PRINT“COEFF.  N.  “S-H  ;  =  INPUT  ft<R,S) 

290  IF  fl(0,0>-0  THEN  PRINT'CDOHNllL  PRIMO  COEFFICIENTE  <>0 
!  I" :  GOTO  280 
300  NEXT  S 
310  NEXT  P 

326  FOR  1*0  TO  N-l 
330  0(1 .N)*-fl(I,N> 

340  NEXT  I 

330  REM  - 

360  REM  INIZIO  DEL  CHLCOLO 

370  REM  - 


380 

FOR 

R-0 

TO 

N-l  FOR  S-l 

390 

S1*0 

400 

FOR 

1-0 

TO 

R-l 

410 

IF 

R<1 

THEN 

430 

420 

S1-S1+BO 

,R)*C<I,S> 

430 

NEXT 

I 

440 

C(R, 

S)-8(S<R1- 

SI  S?-0 

430 

FOR 

1-0 

TO 

R-l 

460 

S2-S2+BU 

,S>*C<I,R> 

470 

NEXT 

I 

480 

IF 

C(R<  P)-8 

THEN  500 

490 

B(R< 

S)-(B(R,S> 

-S2)XC(R#  R) 

300 

NEXT 

S,R 

310 

FOR 

1*0 

TO 

N-l 

520 

B(I, 

NI— B(  1  ;N) 

330 

NEXT 

I 

340 

K*1 

330 

FOR 

J-N- 

1  TO 

I  0  STEP  - 

368 

X(  J) 

-B(  J. 

N) 

570 

FOR 

I-N- 

1  TO 

i  1  STEP  - 

380 

IF 

N-1C1 

THEN  1-1 

5<*0 

B(I- 

1.  J>« 

B(I-1 

< J)*B(J.N) 

600 

NEXT 

I 

610 

FOR 

1-0 

TO 

N-l 

620 

B(  I  / 

N)-B< 

IGNI¬ 

BU.N-K) 

630 

NEXT 

I 

640 

K-K-H 

630 

NEXT 

J 

660 

FOR 

1-0 

TO 

N-l 

670 

PRINT"tDOWNIX< 

“I+1")-"X(I 

680 

NEXT 

690 

FOR 

1-0 

TO 

N-l 

700 

P=0 

710 

FOR 

J-0 

TO 

N-l 

720  P-P+fiCI.J>*X(J> 

730  NEXT  J 

740  IF  0BS(P/l000X0B8(P+0(  I  /  NI  )  THEN  PR  I  NT  “  [DONNI  ERRORE  “H 
1 

730  NEXT  I 


770  peri  l' eventuale  errore  si  riferisce 

700  REM  ALLF  EQUAZIONI  THE  NON  SONO 

790  REM  COMPATIBILI  CON  LE  ALTRE 

000  pem  - - 


Scomposizione  di  Founer 


100  PEM  *«*****************#********f*M******«*M 

110  PEM  *  ANALISI  ARMONICA  DI  FOHPIFR  • 

120  PEM 

130  CLP  PRINT“[CLEARHBLFU]" 

140  POKE  33280.10  POKE  33281,3 

150  PRINT"  BATTERE  LE  COORDINATE  DELI  A  CURVA  DA" 

160  PP  INCANALI  ZZARE,  PER  UN  INTERO  CICLO." 

170  INPUT  " C  DOWN ]  MAX  ORDINE  ARMONICA", B 
180  DIM  fl(B),B(B) 

190  P-it/18‘3  M1«1802<B+1) 

200  INPUT  " I  DOWN) INCREMENTO  IN  OPADI" ,M 

210  IF  M>M1  THEN  PPINT"CDOWNJVALORE  MAX*"M1  OOTO  200 

220  PEM  - 

230  PEM  INTRQDUZIONF  DATI 

240  PEM  - 

230  PRINT 

260  FOP  J*0  TO  360  STEP  M 
270  X»J 

280  PP I NT “ X  :  INPUT  "  V  «";V 
290  A0-V+A0  X-X*P 
300  FOR  I«1  TO  B 
310  A(]>-V*SIN<I*X)+A<I) 

320  B(1)-Y*C0S<I*X)*B(I) 

330  NEXT 
340  N-N+l 

330  IF  Tl<ABSO*V>  THEN  T1-AB$'3*V> 

360  NEXT 

370  REM  - 

380  REM  ELABORRZIONF  DATI 

390  PEM  - 

400  A0=A02N 

410  A0»INT ( A04 1 000+ . 3 >2 1000 
420  FOR  1-1  TO  B 
430  A( I )-AC I )*2/N  B< I )“B( I >*2'N 
440  A<  n-INT<A(I)*1000*.  3)21000 
430  B(  I  ’>»INT<B(  I  )*  1000*.  31/1000 
460  NEXT 

470  FOR  I»I  TO  B 
480  IF  ABS(A<  I  )  K1F-6  THEN  A'  I>=0 
490  IF  ABS<B( I  )  X1E-6  THEN  BM)*=0 
500  NEXT 


100 


00  ROUTINE  IN  BASIC  Pl-R  II.  COMMODORE  64 


310  PRINT " [ CLERR)  I  TERMINI  PELI  0  SVILUPPO  IN  SERIE  DI 
320  PRINT"FOURIFP  SONO  " 

330  PRINT"! 2  DOWNIV  -"R0“+"; 

340  PRINTFK  1 >"SEN(X>+" : 

330  PRINTBC I )"COSCX>" 

360  FOR  H=»2  TO  B 

370  PPINTA<'H>"SEN("H"X'j  +  "  i 

380  F R INTB(H) "COSC "H"X> “ 

390  NEXT 


Polinomio  interpolato  di  Lagrange 


100  REM  *******»*f ******#****•***#**************!**** 

110  REM  *  INTERPOLAZIONE  POLINOMIALE  DI  LAGRANGE  * 

120  REM  »  FORNENDO  N  COORDINATE  CARTESIANE  DI  UNA  * 

130  REM  *  CURVA,  IL  PROGRAMMA  CALCOLA  L'ORDINATA  * 

140  REM  «  DI  ALTRI  PUNTI  A  PIACERE  DI  CUI  SI  * 

130  REM  *  PROPONOA  L'ORDINATA  • 

160  REM  *»«M*«f»«*«M«»M**l«**««W*«***IM**m0«M*« 

170  CLP  : PRINT" [CLERR] I BLFU3 " 

180  POKE  33281, 3'POKE  332R0, 10 

190  INPUT  " C2  DOWNIQUANTE  COPPIE  DI  PUNTI ",N 

1«>3  N-N-l 

200  DIM  XCN),VCN> 

210  PRINT"CCLEAR1" 

220  FOR  T-0  TO  N 

230  PRINT" [ DONNI  I ROSSO 1C00RDI NATE  PUNTO  N."T+l“i" 

240  PRINTTABC 10)"[DOWN][BLEU)X  INPUT  XCT) 

230  PRINTTABC 10) " [DONNI CBLEUJV  -“i  INPUT  VCT) 

260  FOR  K-l  TO  40  : PRINT“CROSA]«[BLEU] “  ; :NEXT 
270  NEXT  T 

280  PRINT "[CLERRI  OK  -  ORA  DIMMI  PER  DUALE  ASCISSA  DEVO" 
290  PRINT"  EFFETTUARE  IL  CALCOLO." 

300  INPUT  "CDOWNIX  «"1X0 
310  OOSUB  460 

320  PRINT "[DOWN] LA  CORRISPONDENTE  ORDINATA  E'" 

330  PRINT" C DOWN) V  -"V0 

340  FOR  K-l  TO  40 ; PRINT" CROSA]»[BLEUI " ,  NEXT 
330  PRINT "[DOWN] VUOI  PROVARE  PER  UN  ALTRO  VALORE  DI  X  ?" 
360  OET  Qf : IF  0*-""  THEN  360 

370  IF  a*-"S"  THEN  300 

380  PRINT "[DOWN]  VUOI  PROVARE  PER  UN  ALTRO  POLINOMIO  7" 
390  GET  Q*IF  0*-""  THEN  390 

400  IF  D*-“S“  THEN  RUN 

410  PRINT“[DOWN]OK  -  FINE." 

420  END 

430  REM - - - 

440  REM  ROUTINE  DI  CHLCOLO 

430  REM  - 
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.ca  V0-0 
J70  FOP  L-0 

400  NU-V(L) 

490  DE"1 
500  FOR 

«10  1F  L»K  - 

«70  NU-NU*<X0-XOO> 
«30  DE-DE*<X(L>-XCK 
«40  NEXT  K 
««0  V0-V0+HU/DE 
560  NEXT  RETURN 


TO  H 


TO  N 
THEN 


MB 

)> 


Polinomio  interpolato  di  Newton 
con  calcolo  delle  derivate 


100  REM  «d************************»-************»**** 

110  REM  *  INTERPOLAZIONE  POLINOMIALE  DI  NEWTON  « 

120  REM  *  FORNENDO  N  COORDINATE  CARTESIANE  DI  UNA  * 

130  REM  «  CURVA,  IL  PROGRAMMA  CALCOLA  L'ORDINATA  * 

140  REM  *  DI  ALTRI  PUNTI  A  PIACERE  DI  CUI  81  * 

150  PEI1  *  PROPONGA  L'ORDINATA  • 

160  REM  *  ED  INOLTRE  TUTTE  LE  DERIVATE  SUCCESSIVE  • 

170  REM  *  IN  PUEL  PUNTO  * 

100  REM  m»*»******MMM*MM*»W*«*«t*MMM*WM* 

190  CLP  : PR I NT " t CLEAR ] C  BLFU I “ 

200  POKE  53201 . 3 : POKE  53280-10 

210  INPUT  "[2  DOWNIQUANTE  COPPIE  DI  PUNTI";N 

220  N«N-1 

230  DIM  XCN). V(N),PCN>,D(N> 

240  PR I NT "C OLEARI" 

250  FOR  T-0  TO  N 

260  PR 1 NT " [ DOWN  H  ROSSO  I COOR D I NA TE  PUNTO  N. "T+l"‘* 

270  PRINTTABI 10)  ”  t  DOUNHBLEUIX  INPUT  XCT) 

200  PR1NTTABC  10>"CDOWNKBLEUIV  INPUT  V<T> 

290  FOR  K-l  TO  40;PRINT"rROSA3«tBLEUI"j !NEXT 
300  NEXT  T 

310  PRINT-C CLEAR 1  QUALE  CALCOLO  DESIDERI  ?" 

320  PR 1  NT T AB ( 1 0 ) “ C DOWN  1 [ ROSSO III BLEU 1  -  LA  SOLA  F(X)’ 

330  PR I NTTAB  < 1 0 ) “ C DOWN I C ROSSO 1 2f  BLEU I  -  LA  F<X>  E  LA  F'CX)M 
340  PRI NTTAB (  10)  “  [D0WNHR0SS033CBLEUI  -  LA  F<X)  E  TUTTE  LE* 
330  PRINTTABC I 4) “DERIVATE  SUCCESSIVE" 

360  PRINT" C2  DOWNISCEOLI  “ 

370  OET  Q*:IF  Qf«""  THEN  37B 
300  Q-VAL(Of) 

390  IF  qoi  AND  Q02  AND  003  THEN  370 

J00  PR I NT "C CLEAR]  OK  -  ORA  DIMMI  PER  QUALE  H8CI8SA  DEVO" 

♦10  PRINT"  EFFETTUARE  IL  CALCOLO." 

♦20  INPUT  “ C DOWN I X  -"1X0 
♦30  OOSUB  710 
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100  ROUTINE  IN  BASIC  PER  IL  COMMODORE  64 


440  ON  0  GOTO  450-480,330 

450  PR I NT " C DOUN  JL A  CORRISPONDENTE  ORDINATA  E'" 

460  PRINT" C DOWN TV  -"P 
470  GOTO  390 

480  PRINT"! DOWN ILA  CORRISPONDENTE  ORDINATA  E'“ 

490  PRINT"tDOWNTV  -"P 

500  PRINT"!DOWN]LA  DERIVATA  PRIMA  E'“ 

310  PRINT"! DOWN ]F ' < " X0 " )  -"PI 
520  GOTO  390 

330  PRINT"! DOWN ILA  CORR I 6P0NDENTE  ORDINATA  E'" 

340  PRINT"! DOWN IV  -"P<0) 

330  POR  J-l  TO  N-l 

360  PRINT"!DOWN]DERIV.  DI  ORDINE" J"-"P< J) 

570  NEXT  J 

580  IF  N-2*INT<N/2)  THEN  PRINT"! DOWN]DERIV.  DI  ORDINE"N"-"P 

(N) 

390  FOR  K-l  TO  40  PRINT"IROSAJ.!BLEU]“; 'NEXT 

600  PRINT"! DOWN! VUOI  PROVARE  PER  UN  ALTRO  VAI  ORE  DI  X  7" 

610  OET  a*IF  Q*-"“  THEN  610 

620  IF  Q*-"S"  THEN  420 

630  PRINT" IDOWN]  VUOI  PROVARE  PER  UN  ALTRO  POLINOMIO  7" 

640  OET  0*:IF  0*-""  THEN  640 

630  IF  Q$-"S"  THEN  RUN 

660  PRINT”!DOWN]OK  -  FINE." 

670  END 

680  REM - 

690  REM  ROUTINE  DI  CALCOLO 

700  REM - 

710  FOR  T-0  TO  N 
720  D(T>-V(T) 

738  NEXT  T 

740  FOR  T»1  TO  1UF0R  J-0  TO  N-T 
750  D<J>-<D<J+1)-D<J)V<X<J+T>-X(J>> 

760  NEXT  J-T 

770  OH  Q  OOTO  780,828,870 
788  P«D(0) 

790  FOR  J-l  TO  N 

800  P-P*(X0~X< J) >+D( J> : NEXT  J 

810  RETURN 

820  P-L(0J ; Pl-0 

830  FOR  J-l  TO  N 

848  Pl«Pl*(X0-X(JmP 

850  P»P*<X0-X<J>HD(J>  NEXT  J 

860  RETURN 

870  FOR  J-0  TO  N 

880  P(J)-D(N-J>  NEXT  J 

890  F-l 

900  M-N-l 

910  FOR  J-l  TO  H 

920  L-M+J 

930  FOR  T-J  TO  N 

940  K-L-T 

930  POO*P<K>+P(K+1)*(X0-X(T>> 
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960  MEXT  T 

970  P<K>=P<K>*F 

900  F“F*J 

990  NEXT  J 

1000  P<N>-P<N)*F 

;0,0  RETURN 


Calcolo  della  derivata 


100  REM  ************************************** 

10  rem  *  CALCOLO  DELLA  DERIVATA  DI  UNA  * 

120  REM  *  FUNZIONE  IN  UN  PUNTO  » 

130  REM  *  <L A  FUNZIONE  DEVE  ESSERE  DEFINITA  « 

140  REM  *  NELLA  RIGA  1A0  >  * 

150  REM  *******M«******************1********** 

160  POKE  53281, 3:P0KE  53280,10 
170  Cl  R  PRINT"  CCLEARKBLEUJ  ” 

100  DEF  FNY<X)-5*Xf2-7*X+4 

190  PRI NT “ASC ISSA  DEL  PUNTO  IN  CUI  DEVO  CALCOLARE- 

200  INPUT  “LA  DERIVATA  X-".X1 

210  FOR  K-l  TO  10 

220  Dl-D 

230  X-X1+.3TK 

240  Z-FNY«X)-FNV(X1 ) 

250  D-ZZ(X-Xl) 

260  NEXT  K 
270  R-2*D-D1 

280  P-INT(R*1000+. 5)21000 
290  F=FNV(X I ) 

300  PRINT"  I DOWNIFC  **X1  "  >“"F 
310  PRINT- [D0WH3F' < “XI “ )»“P 
320  PR 1 N T “ I  DOWN 3 ANCORA  7“ 

330  GET  QflF  0$-"“  THEN  330 
340  1F  Q$-“S"  THEN  170 
350  PR1NT“ID0WNKIK  -  FINE." 


Calcolo  integrali 

100  REM  W******»*4i*****»W**f*<*4>*«**«titi*******«*»* 

|10  REM  *  CALCOLO  DEGLI  INTEGRALI  DEFINITI  • 

20  REM  *  CON  LA  FORMULA  DI  S1MPS0N  « 

130  REM  *iM**M*MM*t***M»W*M**)M*«**««**«*** 

140  CLR  :PRINT”[Cl  EAPHBLEO]” 

50  POKE  53280,10:  POKE  53281,3 
{^0  PR IITTTAB(  1 1  ) “ t ROSSO  1 INTEORHL I  DFFINITJ" 

170  PRINT-CDOWN]  CALCOLATI  CON  LA  FORMULA  DI  SIMPSON" 
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ìoo  routini;  in  basic  pi:r  il.  Commodore  64 


180  OOSIJB  690 

198  PR 1 MT "  C BLEU]  [ ?  D0WH1VU0I  LE  ISTRUZIONI  ?  ", 

200  GOSUB  600  PPINTR* 

210  1F  A$«"S"  THEN  OOSUB  65« 

220  PR1NT " CCLEAR I r  D0WN1BATT I  LR  FUNZIONE  [DONNI “ 

230  INPUT  "V  »  ",V$ 

240  PR I NT "CDOUNIC ROSSO I  270  DEF  FNRCX)-  “V* ; PRINT“RUN  270" 

250  PR I NT " [ BLFUIPREMI  ALTRE  ?  VOLTE  IL  TRSTO  RETURN  “ 

260  PRINT"C6  UPI"  END 
270  DEF  FNRCX)*  X 

280  PR I NT " C  CL  EAP I OK  -  ORA  FORNISCIMI  OLI  ESTREMI  DI" 

290  PRI NT" INTEGRAZIONE 
300  INPUT  "CDOWNILIMITE  INFERIORE" ; L I 
310  INPUT  "CDOWNILIMITE  SUPERIORE" ; LS 
320  GOSUB  630 

330  INPUT  " [ DOWN) QUANTE  SUDDIVISIONI  (NUM. PARI )" iS 
340  PR I NT " C CLERR I OK  -  UN  ATTIMO  DI  PAZIENZA* " 

350  PRINT"C2  DONNI"  OOSUB  630 
380  PRINT"[DOWNINIJM. SEZIONI",  "AREA" 

370  PRINT' - - - 

380  DX=(LS-LI )ZS’T»0 
390  X»LIY-FNA<X)  T»T+V 
400  X»LS : Y*FNR<X) ; T“T+V 
410  M-SZ2Z-0 
420  E OR  K-l  TO  M 

430  X=»LI+DX*C?*K-1)  Y-FNACX)  Z-7+V 

440  NEXTK : T"T+4*Z 

450  H«N-LIF  M«0  THEN  490 

460  Z-0  EOR  K»1  TO  M 

470  X-LI+DX*2*K  V-FNRCXIZ-Z+Y 

480  NEXTK : T"T+2*Z 

490  A=DX*T/3 

500  PR 1  NT "C DOWN IC POSSO) "S, ,R"[BLEUI" 

510  PRINT “12  DOWN)"  GOSUB  630 

520  PRIMI "[ DOWN) ANCORA  CON  LA  STFSSA  FUNZIONE  ?" 

530  OOSUB  600 

540  IF  R*-“S"  THEN  280 

550  PR I NT " C DOWN ICON  UNA  FUNZIONE  DIVERSA  3" 

560  OOSUB  600 

570  IF  Af*"S"  THEN  CLP  GOTO  220 
580  PR I N T " [ OLE AR ) OK  -  FINF " 

590  END 

600  REM  -ATTESA  E  INGRESSO  DATI 
610  GET  A* : IF  A*»" "  THEN  610 
620  A«VAL ( A* >  RETURN 
630  REM  -BARRA  ORIZZONTALE 

640  FOR  K-l  TO  40  PRINT"  [ROSAIO BLEU)  "  1  :  NEXTK  :  RETURN 
650  REM  -ISTRUZIONI 

660  PR I NT "C CLERR) QUANDO  VEDRAI  Y*?CRVS)  CRVOfF)  BATTI  LA  FUNZI 
ONE" 

670  PRINT "CHE  VUOI  ESAMINARE." 

600  PR I NT 11 C DOWN ) PO I  BATTI  2  VOLTE  CONSECUTIVE  IL  TASTO" 

690  PRINT"CPOSS0)RETUPN[PLEU).  11 


7„0  PR1NT"[  DOMIOSUCCESSIVAMENTE  DOVPAI  INDICARMI  IL" 

710  pRINT"LIMITE  INFERIORE  E  IL  LIMITE  SUPERIORE" 

720  PRIHT"DI  INTEGRAZIONE. " 

730  PRI NT "[DOWN] INF  INE  DEVI  H IRMI  IN  QUANTE  PORTI  DEBBO" 

740  pplNT"SUPPI VIDERF  L ' I NTFRVOLL  0  DELL ' ASSE  X" 

750  PRI NT "COMPRESO  FRA  I  DUE  LIMITI  CHE  MI  HAI" 

760  PR I  NT"  DOTO  (  DFVE  ESSERE  UH  NUMERO  I  ROSSO]  PORI  CBLEU I  DI" 
770  PR I NT"PORT I  ) .  " 

700  PRINTTOBU0)"I2  DOWN]  (PREMI  UN  TOSTO)" 

7R0  OOSUB  600 
000  RETURN 


Calcoli  statistici 


(00  REM  a******************************** 

110  REM  *  CALCOLI  STATISTICI  SU  UNO  0  * 

120  REM  *  DUE  SERIE  DI  MISURE  * 

130  REM  ***************** **************** 

140  CLP  PRI NT" ICLEOR ] [ROSSO I " 

150  PRIHTTABC 11 )“CALCOl  I  STATISTICI” 

160  POR  K-l  TO  40  PR I NT " [ ROSA ] «C BLEU ] " ; : NEXT  K 
170  POKE  33281,3  POKE  53280,10 

180  PRINT"C2  DOWN]  VALORI  CROSSOPI  BLEU]  INOOLI  0  I  ROSSO  ]  C I  BLEU  ] 
OPPIE  DI  VALORI 
190  PR I  NT " 12  DOWNTSCEOL I  " 

200  OET  Q*  IF  Gl*-"”  THEN  200 

210  IF  ù*0‘‘S"  AND  Q»0"C"  THFN  200 

220  C-l 

230  IF  r>$-"C"  THEN  C»2 

240  INPUT  " IDOWNTQUONT I  VALORI" IN 

230  DIM  X(N) , V(N) 

260  REM  - 

270  REM  INGRESSO  DATI 

280  REI1  - 

290  PRINT"ICLEAR]" 

300  FOR  Z«1  TO  N 

sio  print"x< " ; z; “)■" ; : input  x<z> 

320  IF  C-2  THEN  PRINTTRB( 16)" [UP]V< " ; Z; “)■“] ■ INPUT  V(Z) 

330  NEXT  Z 
340  OOSUB  010 

330  REM  - 

360  REM  VISUALIZZAZIONE  RISULTATI 

370  rem  - 

380  PR I NT " I CLEAR ] I L  VALORE  MEDIO  DELLA  X  E'  :M 
390  PR I NT  T AB ( 1 3  > “ C  DOWN ] M  -  ";XA 

400  PRI NT "IDOWN] SCARTO  OURDRATICO  SU  t ROSSO ]N-1 [BLEU]  MISURE  : 

«10  PRINT  PPINTTAB'’  12) < INT<XQ)*1000+. 5)21000 

«20  PR I NT" [ DOWN ] SCARTO  QUADRATICO  SU  C ROSSO ]N[ BLEU]  MISURE  =  * 

«30  PRINT  PRINTTABC 12) < INT< XP)* 1000+. 5>/ 1 000 
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00  ROUTINE  IN  BASIC  PKR  11  COMMODORE  64 


440  PRINT" [DOWN] SCARTO  QUADRATICO  MEDIO  DELLA  MEDIA  8U" 

430  PRINT" [ROSSOlN-l CBLEU)  MISURE 

460  PRINT  PRINTTABC 1?) ( 1NTCXM>*1000+. 3)71000 

470  PRINT "[DOWN] SCARTO  QUADRATICO  MEDIO  DELLA  MEDIA  SU" 

400  PR I NT "CROSSO INI BLEU)  MISURE  " 

490  PRINT  PRINTTABC 12) < INT(PX)*1080+. 3)71000 
500  1F  C-l  THEN  730 

510  PRINT“CDOWN)  (PREMI  UN  TASTO  PER  I  VALORI  DELLA  Y>“ 

320  OET  Q*IF  Q*-""  THEN  520 

330  PRINT"CCLEAR) IL  VALORE  MEDIO  DELLA  V  E'  INVECE 
340  PRINTTAB( 13>“[D0WN]M  -  "JVA 

350  PRINT "CDOWNISCARTO  QUADRATICO  SU  [ ROSSO ] N- 1 C BLEU 3  MISURE  : 

560  PRINT  PRINTTAB<1?)(INT(VQ)*1000+. 3)71000 

570  PRINT" CDOWNISCARTO  QUADRATICO  SU  C ROSSO 3NCBLEUJ  MISURE  :* 

380  PRINT : PRINTTABC 12) < INT(VP)*1000+. 3)71000 

390  PR I NT " C DOWN ] SCARTO  QUADRATICO  MEDIO  DELLA  MEDIA  SU" 

600  PR1NTBCR0SS0)N-1 CBLEU)  MISURE  ■ " 

610  PRINT : PRINTTABC 12) ( INT <VM)*1000+. 3)71000 

620  PR I NT “C DOWN] SCARTO  QUADRATICO  MEDIO  DELLA  MEDIA  SU" 

630  PR I  NT “C ROSSO  ]NC  BLEU ]  MIStJRE  ■  " 

640  PRINT : PRINTTABC 12) ( INTCPV XI 000*. 5)71000 
630  PRINTTABC 12) " CD0WN3CPREMI  UN  TASTO)" 

660  OET  Q*  IF  Q*-""  THEN  660 

670  PR I NT “ C CLEAR 1C0VAR I RN2A  FRA  X  ED  V  SU  CROSSOIN-1 CBLEU)  M1S 
URE  ■  " 

680  PRINT : PRINTTHBC 12) (  INT(CO)*1000-*-.  5)71000 

690  PR I NT "C DOWN] COVARIANZA  FRA  X  ED  V  SU  [ROSSO INC BLEU)  MISURE 

•  Il 

700  PRINT  PRINTTABC 12) (INT(CC)*1000+. 3)71000 
710  PR I NT " C DOWN 1C0EFF I C I ENTE  DI  CORRELAZIONE 
720  PRINT :PR1NTTABC12)CINTCCR>«1000+. 3)71000 
730  PRINT "ANCORA  ?" 

740  OET  Hf  :  IF  A**" “  THEN  740 
730  IF  A**»"S"  THEN  RUN 
760  PRINT“OK  -  FINE." 

770  END 

780  REM  - 

790  REM  CALCOLO 

800  REM  - 

8 1 0  XA-0 : VA»0 : XM-0 : YM-B : PX-0 
620  N1»N-1  NR-SQRCN) 

830  ON  COOTO  840,930 
840  FOR  J-l  TO  N 
830  XA-XA+XCJ) 

860  XM»XM+X(J)T2 
070  NEXT 
880  PV-XM-XA7N 
890  XA-XA7N 
900  XQ-SQRCPV7N1) 

910  XP-S0RCPV7N) 

920  PX-XP7NR 
930  XM-XQ7NR 
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940 

950 

960 

970 

900 

990 

1000 

1010 

1020 

1030 

1040 

1030 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1130 

1160 


RETURN 

TOP  J“1  TO  N 

XR«XR+X<J> 

yH.yR+Y(J> 

X(i-XM+XCJ)T2 

Vrt-YI'l+V<J>T2 

PX»PX+X< J>*Y(J> 

NEXT 

py-xn-(XH12>/N 

CO»VI1-(YRt2)/N 

CR-PX-(XH*Yfl)/N 

Xfl-XRXN 

yp-VR/N 

XQ-S0R(PY/H1) 

YQ- SOR (CO/N 1) 

XP-S0R(PY/N) 

YP«SQR(C0/N> 

C0-CR/N1 

CC-CR/N 

XM*XO/NR 

YM-YO/NR 

PX-XP/NR 

PY-YP/NR 


1170  IF  XQ-0  OR  YOB 
1180  CR-CR/(N*XP*YP> 
1190  RETURN 


THEN 


RETURN 


giete  interessati  ai  personal  computer? 

Su  questo  argomento  sono  stati  pubblicati  i  seguenti  titoli: 

Nella  collana  “biblioteca  del  personal  computer”: 

gpC  I  Annibale  Iz.z.o  L  ABC  dei  Sinclair  ZX80,  ZX81  e  Spectrum 
gpC  2  Vince  Apps  35  programmi  per  il  Texas  TI  99/4A 
gPC  3  Martin  Wren-Hilton  13  giochi  con  lo  ZX  Spectrum 
gpC  4  John  Krutch  Esperimenti  di  intelligenza  artificiale 
gpC  5  Carlo  Stnlin  e  Costantino  Mustacchio  100  routine  in  Basic  con 
il  Commodore  64 


Nella  collana  “il  piacere  del  computer": 

PDC  I  Tom  Rugg  e  Phil  Feldman  32  programmi  con  il  PET 
PDC  2  Ridi  Dtddav  Intervista  sul  personal  computer,  hardware 
PDC  3  Tom  Rugg  e  Phil  Feldman  32  programmi  con  l’Apple 
PDC  4  Ken  Knecht  Microsoft  Basic 
PDC  5  Paul  M.  Chirlian  Pascal 

PDC  6  Tom  Rugg  e  Phil  Feldman  32  programmi  con  il  TRS-80 
PDC  7  Rich  Didday  Intervista  sul  personal  computer,  software 
PDC  8  Herbert  D.  Peckham  Imparate  il  Basic  con  il  PET/CBM 
PDC  9  Karl  Townsend  e  Meri  Miller  II  personal  computer  come  pro¬ 
fessione 

PDC  10  Karen  Billings  e  David  Moursund  Te  ne  intendi  di  computer? 
PDC  I  1  Thomas  Dwyer  e  M argot  Critchfield  II  Basic  e  il  personal  com¬ 
puter,  uno:  introduzione 

PDC  12  Don  Inman  e  Kurt  Inman  Imparate  il  linguaggio  dell'Apple 
PDC  1 3  Thomas  Dwyer  e  Margot  Critchfield  II  Basic  e  il  personal  com¬ 
puter,  due:  applicazioni 
PDC  14  Luigi  Pietro  II  manuale  del  CP/M 
PDC  15  Carlo  Sintini  A  scuola  con  il  PET/CBM 
PDC  16  David  Johnson-Davies  II  manuale  dell’Atom 
PDC  17  David  E.  Schultz  II  libro  del  Commodore  VIC  20 
PDC  1 8  Jim  Huffman  e  Robert  Bruce  II  “debug"  nei  personal  computer 
PDC  19  Jon  M.  Nevison  Programmazione  in  Basic  per  l’uomo  d  affari 


PDC  20  Mark  H arrisoti  Imparale  il  Basic  con  lo  ZX8I 
PDC  21  Ronald  W.  Anderson  Dal  Basic  al  Pascal 
PDC  22  Herbert  D.  Peckham  Imparate  il  Basic  con  il  Texas  TI  99/4>\ 
PDC  23  Sergio  Borsoni  A  scuola  con  il  Texas  TI  99/4A 
PDC  24  Jerry  Willis  e  Deborrah  Willis  Come  usare  il  Commodore  64 
PDC  25  Mark  Harrison  Imparate  il  Basic  con  lo  Spectrum 
PDC  26  Carlo  Sintim  e  Costantino  Mustacchio  A  scuola  con  ilCommo- 
dore  64 

PDC  27  David  A.  Lieti  Imparate  il  Basic  con  l'IBM  PC 
PDC  28  Ken  Trattori  Introduzione  al  Lisp 

PDC  29  Fabio  Mavaracchio  Programmi  in  Basic  per  l’elettronica 
PDC  30  lati  Stewart  e  Robin  Jones  II  linguaggio  macchina  dello  Spec- 
trum 

PDC  31  Tom  Rugg,  Phil  Feldman  e  Clarence  S.  Wilson  32  programmi 
per  il  VIC  20 

PDC  32  Meri  K.  Miller  e  Man  A.  Miers  Introduzione  all’Apple  Mcln- 
tosh 

PDC  33  Stati  Krute  Grafica  e  suoni  con  il  Commodore  64 
PDC  34  Jerry  Willis  e  William  Manning  Come  usare  l’IBM  PCjr 
PDC  35  Tom  Rugg  e  Phil  Feldmann  32  programmi  con  il  Commo¬ 
dore  64 

PDC  36  Sergio  Borsani  Matematica  e  geometria  con  il  Commodore64 
PDC  37  David  Faine  ZX  Spectrum:  tecniche  avanzate  di  linguaggio 
macchina 

PDC  38  Salvatore  Marseglia  Chimica  con  il  pocket  computer 
PDC  39  Patrizio  Quintili  Programmi  in  Basic  per  i  geometri 


In  ali 

0TE  4. 

mea 

MS  2 
MS  4 

MS  4 
MS  S 
MS  ? 
MS  IO 
MS  11 
MS  14 
MS  18 


re  collane: 

Adrian  C.  Dickens  L 'hardware  dello  S  peci  rum 
1  Robert  L.  Su  art s  ZX80  e  7.X81  come  strumenti  di  controllo 
Martin  Cripps  L’hardwarc  dei  computer 
Rudoll  Zaripov  Musica  con  il  calcolatore 
D.R.  Green  e  J.  Lewis  Le  scienze  con  d  calcolatore  tascabile 
Peter  Henna  Matematica  con  il  calcolatore  tascabile 
Carni  Anne  Opdtn  II  progetto  dei  microcomputer:  hardware 
Carvi  Anne  Onditi  II  progetto  dei  microcomputer:  software 
Aubrey  Jones  Astronomia  con  il  calcolatore  tascabile 
Peter  G rogano  Programmare  in  Pascal 

R.  Danese.  C.  Riseduto.  F.  Perrotta  Simulazioni  di  fisica  in 
Basic 


Finito  di  stampare  nel  febbraio  1985 
dalle  Grafiche  Mitzzio  spa  di  Padova 


scriveteci  due  parole  su  quello  che  pensate  di  questo  libro,  grazie 


□  desidero  ricevere  il  catalogo  delle  vostre  pubblicazioni 


□  desidero  acquistare  i  seguenti  libri  (mettere  una  crocetta  sul 
quadratino  corrispondente) 


□ 

BPC  1 

L.  10.000 

□ 

PDC  25 

L.  19.000 

□ 

BPC  2 

L.  12.000 

□ 

PDC  26 

L.  17.000 

□ 

BPC  3 

L.  8.000 

□ 

PDC  27 

L.  26.000 

□ 

BPC  4 

L.  10.000 

□ 

PDC  28 

L.  19.000 

□ 

BPC  5 

L.  12.000 

□ 

PDC  29 

L.  14.000 

□ 

PDC  30 

L.  16.000 

□ 

PDC  1 

L^fiOOO 

□ 

PDC  31 

L.  19.000 

□ 

PDC  2 

L.  16.000 

□ 

PDC  32 

L.  16.000 

□ 

PDC  3 

L.  16.000 

□ 

PDC  33 

L.  22.000 

□ 

PDC  4 

L.  12.000 

□ 

PDC  34 

L  16.000 

□ 

PDC  5 

L  12.000 

□ 

PDC  35 

L.  19.000 

□ 

PDC  6 

L.  12.000 

□ 

PDC  36 

L.  19.000 

□ 

PDC  7 

L.  12.000 

□ 

PDC  37 

L.  18.000 

u 

PDC  8 

L  16.000 

□ 

PDC  38 

L.  14.000 

□ 

PDC  9 

L.  9.000 

□ 

PDC  39 

L.  19.000 

n 

PDC  10 

L.  12.000 

□ 

PDC  11 

L.  14.000 

□ 

BTE42 

L.  12.000 

□ 

PDC  12 

L.  15.000 

□ 

PDC  13 

L.  14.000 

□ 

MEA51 

L.  15.000 

□ 

PDC  14 

L.  9.500 

□ 

PDC  15 

L.  13.000 

n 

MS  2 

L.  12.000 

□ 

PDC  16 

L.  18.500 

□ 

MS  3 

L.  12.000 

n 

PDC  17 

L.  12.000 

□ 

MS  4 

L.  18.000 

u 

PDC  18 

L.  15.000 

□ 

MS  5 

L.  15.500 

□ 

PDC  19 

L.  19.000 

□ 

MS  7 

L.  13.500 

□ 

PDC  20 

L.  13.000 

□ 

MS  10 

L.  13.500 

□ 

PDC  21 

L.  10.000 

□ 

MS  11 

L.  16.000 

□ 

PDC  22 

L.  22.000 

□ 

MS  14 

L.  25.000 

□ 

PDC  23 

L.  18.000 

□ 

MS  18 

L.  20.000 

□ 

PDC  24 

L.  18.000 

□  pagherò  al  postino  L . +  spese  postali  (L.  1.000) 

□  allego  assegno  o  vaglia  n . per  l’importo  totale  indicato 


□  □  □  □  □  3 


□  □ 
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